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Note 

Throughout the book italic characters in the program listings 
represent graphics characters. To enter these press CAPS 
SHIFT and 9 together (to get graphics mode) and then the italic 
character. To get out of graphic mode press 9 again. 


Switching Off 

Because previous programs can affect the way subsequently 
loaded programs run, it is always a wise precaution to switch off 
your micro before typing in or loading from tape any new 
programs. Some programs in this book will only work properly if 
this is done. 


INTRODUCTION 


The Information Revolution is all about getting the information you 
want when you want it. How many times have you wished that you 
had all of PCW’s programs and Spectrum hints in one volume? 

For over five years PCW has been collecting the best in 
programs and programming tips for every micro. Now we've 
selected the finest of these and tailor-made the programs to run 
on your Spectrum computer. 

Each program was redesigned by a Spectrum expert to make 
full use of colour, sound and the other facilities of your machine. 
All the programs have been closely vetted by one of PCW's 
experienced team of referees to ensure that they are as bug-free 
as possible. 

For a pinch of spice we've added all the best readers’ tips and 
programming hints, providing you with a unique compendium of 
the Best of PCW for your machine. 

Ofcourse one day we'llbe inviting you to dial up this information 
but for the time being enjoy a good, old-fashioned book! 


Jane Bird, editor 
Personal Computer World 


ANDREW ESMOND 
Original program by Richard Still 


GENERAL DESCRIPTION 


This rather complex program allows you to play one of the most 
well known and difficult games of patience on your Spectrum. 


It demonstrates the use of user-defined graphics to represent 


the different suits of cards, and also shows how to manipulate a 
pack of cards on the computer, which can be used as a basis for 
writing many other card games yourself. 


DETAILED DESCRIPTION 


Lines 10-48 Set up numeric and string variables. 


10 


50-70 Print ‘shuffling pack’ message. 

80-100 Define the arrays. 

110-190 Shuffle the pack of cards. 

210-310 Print the initial version of the screen, showing the 
values of those cards which are face up. 

320-410 Get input from keyboard. If the command is deal, 
move from pack or give up then act on it immediately. 
420-460 If command was move from a column, set up the X 
and Y co-ordinates of the card(s) to be moved. 


* This program needs a 48K Spectrum 


470-650 Input the column to which the card(s) are to be 
moved. 

660-810 Moving from one column to another. 

820-930 Moving to foundation. 

940-960 Checking for errors and printing appropriate error 
messages. 

970-1020 Determine suit and value of card in X$. 
1030-1080 Move the cursor to column X, line Y. 

1100-1250 Check if you have won or lost; print 
congratulations or commiserations as appropriate. 

Then see if player wants to play again. 

1260-1360 Deal a card. 

1370-1399 Close up the remaining cards available for 
dealing when one has been taken into play. 

1400-1610 Instructions routine. 

1710-1810 Routine to finish the game automatically if no 
further progress is possible. 

9000-9100 Set up user-defined graphics for the card suits 
and the foundation area. 


REM *#*Stilton Patiencexx* 

REM ###R.W. Still x** 

REM *#*#* Initializex#* 

LET Wi=@: LET Li=@ 

GO Td 1400 

LET G=@: LET NU=1: LET x=" 

LET S2=1s DIM V#(32) 

LET O¢="" ) 

LET X=ls LET T= 

LET H$="" 

DIM G@¢4) 

RESTORE 16@: CLS : PRINT TA 

INVERSE 1:3" 

PRINT TAB 43 INVERSE 135" I‘ 
SHUFFLING THE PACK " 
7@ PRINT TAB 43 INVERSE 13" 


8@ LET L=@: DIM t(7): DIM b(7) 


1] 


: DIM £#(13,2): DIM p#(52,2): DI 
M s#¢(4): DIM n#(is3): DIM a¥(7,20 
s2): FOR n=1 TO 7s LET tind=ns L 
El btnd=ns NEXT ms LET 1l=1 

90 DIM £(4): DIM p(4)s RANDOMI 
ZE : LEI p=@ 

104 DIM e¢(2é4) 

11@ LE!’ d¢="" 

14@ REM *#**SHUFFLE PACK#*#* 

15@ FOR I=1 TO 4: READ S#(I): N 
EXT Is FOR I=1 TO 13: READ N#(I) 
s NEXT I 

160 DATA “BY "0", "A", "C" "A", "2 
SY et PS Mat PT 8 TS OT 
oa, "OQ" MK" 

170 LET CS$="ACABAAADZCZB2ZA2ZD3C3 
BSASD4C4B4A4D5CSBSASD6CEBGA6D7C7 
87A70B8CB888ABD" 

180 LET CS$=CS$+"9C9B9ASDTCTBTATD 
JCJIBI AJ DOCQBGAGPKCKBKAKD": LET C 
=52 

19@ FOR I=1 TO S52: LET A=INT (R 
ND#C)+1: LET P$¢(1I)=C$(2*A-1 TO 2 
*A): LET L#$=C$(1 TO 2% (A-1))s LE 
T R#$=C#(2*At+1 TO LEN C$): LET C$ 
=L$+R$: LET C=C-1: NEXT I 

210 REM ***PRESENT LAYOUT#** 

220 CLS =: FOR I=1 TO 7: FOR J=1 

TO Is PRINT AT J, (1-1) #33 

260 IF J=BC(I) THEN PRINT P#(L) 
: LET AS(1,3)=FPS$(L): LET L=L+ti: 
NEX!] Js NEXT Is GO TO 280 

27@ LET AS(1,0)=P$(L): PRINT I 
NVERSE is" “s LET L=L+i: NEXT J 
: NEXT I 

280 FOR I[=29 TO S2: LET D$=D$+P 
#(I): NEXT I 

270 PRINT AT @,203"EF27I1I11I7T1I1F 
"s FOR F=1 TO 13: PRINT AT F,20: 
an K": NEXT F 

3@@ PRINT TAB 2@:"G2211121111H" 


310 INVERSE 1: FOR I=@ TO 18 ST 
EP 3: PRINT AT @,13" "“SSTR# (itl 
/3)3 NEXT I: INVERSE @ 

320 REM *#*#*#MAIN LOOP-FIRST INFU 
THEX 

330 IF D#<>"" THEN GO TO 360 

340 FOR I=1 TQ 73 IF Bti}>1 THE 
N LET I=8: NEXT I: GO TO 360 

35@ NEXT I: GO SUB 17204 

360 LET PI=@: LET X=@: LET Y=@: 

LET T=@: LET TT=@: PRINT AT 19, 
@;TAB 245AT 19,0; "FROM "5; 

38@ LET Z$=INKEYS: IF Z#="" THE 
N GO TO 380 

390 IF Z#="D" THEN GO TO 1270 

400 IF 2#="E" THEN GO TO 1110 

410 IF Z$="P" THEN LET PI=1: G 
0 10 4808 

420 REM ##*SET UP X AND Y#** 

43@ IF 2$>"7" OR Z#<"1" THEN G 
0 TO 460 

440 LET T=VAL Z#: LET X=T: LET 
Y=B(X) 

435@ IF Y=@ THEN GO TO 330 

460 IF T=@ THEN GO TO 38@ 

476 REM *##SECOND INPUT##* 

48@ PRINT Z#3" TO "3; 

490 LET BS=INKEY$: IF BS="" THE 
N GO TO 494 

491 IF BS="F" THEN GO TO 500 

492 IF Be<"1" OR BS>"9" THEN G 
0 TO 496 

5@@ IF BS="F" AND X=@ THEN GO 
TQ 368 

905 IF BS="F" THEN LET TT=8: G 
0 TO 526 

318 LET TT=VAL BS 

520 IF TT=@ THEN GO TO 496 

53@ IF TT=T THEN GO TO 490 

940 PRINT BS; 

30M IF TT=8 THEN LET Y=T(X) 


560 IF PI=1 THEN LET X#=H#: GO 

TO. 580 

370 LET X$=A#(xX,Y) 

380 GO SUB 9708 

370 IF Tl=8 THEN GO TO 8304 

600 IF 1(7TT)=@ AND NUC?13 THEN 
560 10 330 

610 IF VCtt)=@ THEN LET B(TT)= 
i: GO 10 67@ 

620 LET Si=SUs LET Ni=NU 

630 LET X$=AS(TT,TCTT)) 

640 GO SUB 970 

650 IF NU-1i<oN1 OR 1-SU4°S1 THE 
N 6O TO 750 


660 REM ***MAIN MOVE ROUTINE##* 
67@ GO SUB 1040: LET F=1 

680 IF PI=1 THEN LET F=2: LET 
F#(1)=Ht: GO SUB 1380: LET P=F-i 
: GO TO 740 

670 FOR I=B(X) TO T(X)s LET F#¥¢ 
F)=AS(X,1): LET AS(X,1)=" we bk 


ET F=F+1 

700 PRINT " "3; OVER 13;V#( TO 3 
@)s: NEXT Is CET XX=X: LET YY=Y 

71M LET BC(X)=B(X)-1: LET T(X)=B 
(X) 

720 IF B(X)>@ THEN LET G=1 

730 IF T(TT)=@ THEN LET X=TT: 
LET Y=@: GO SUB 1040: GO TO 750 

74@ LET X=TTs LET Y=T(TT): Gas 
UB 1040 

73@ PRINT OVER 1sV#s3: FOR I=1 
TQ F-ls PRINT F#¢tl): OVER 13 V¥¢ 
10 30)3: LET AS(X,1¢(K) +1) =F# (1) 
76Q IF Fecl)<>" “ THEN LET T¢x 
yET (K+ 

776 NEXT I 

ABM TOR fet GM tes Le! Fach" 
“s WEX! Js LE} Fed 

790 (F G=1 THEN LE! G=@: LET x 
=XXs LET Y=YY-it: GO SUB 104@: PR 


INT ASOX,Y) 

800 IF FI=i THEN GO TO 1310 

810 GO TO 334 

820 REM ***#MOVE TO FOUNDATION*®* 
oy 

830 IF F(S2)<>NU-1 THEN GO TO 
330 

840 LET @(S2)=@(S2)+1: LET F(S2 
y=NU 

850 PRINT AT F(S2) , 28+ (S22) 5 

860 IF Y=1 THEN GO TO 88a 

870 IF AS(X,Y-1)<>" " THEN LE 
T G=1 

B80 PRINT X# 

890 IF PI=i1 THEN GO SUB 1380: 
LET P=P-1: GO TO 1310 

900 GO SUB 194@: PRINT " "se L 
ET AS(X,Y)="  “s IF Y¥>@ THEN LE 
TY T¢CX=T(X)-1 

910 IF TC(X)=B(X)-1 THEN LET B¢ 
X)=B(X)~1 

920 IF G=1 THEN LET G=@: PRINT 

AT (24-PEEK 23689)-1,33-PEEK 23 
688~2;AS(X,Y-1) 

93@ GO TO 330 

740 REM *##*ERROR ROUTINE *** 

935@ IF 1-SU<>S1 THEN PRINT AT 
19,0; TAB 24;AT 19,8; "WRONG COLOU 
R"s: FOR I=1 TO 2@@: NEXT I: GO 
TG 330 

96@ PRINT AT 19,@; TAB 24;AT 19,. 
@; "WRONG VALUES";: FOR I=1 TO 20 
@: NEXT I: GO TO 330 

97@ REM ***TO RETURN VALUE AND 
NUMBER OF X$*x** 

98@ RESTORE 160: FOR I=1 TO 4: 
READ WS: IF X$(LEN X$)=WS THEN 
LET SU=I-INT (I/2)*2: LET S2=I 

990 NEXT I 
10@@ FOR I[=1 TO 13: READ WS: IF 
X$(1)=WS THEN LET Nil=Il: LET I=1 


NEXT I 
RETURN 
REM *#*#*MOVE CURSOR TO X,Y#* 


LET X1=X:3 LET Yi=Y¥s PRINT A 


LET X1=Xi#3-3: IF Xi1=@ THEN 
10 1070 
GO TO 1880 
IF Yi=@ THEN RETURN 
PRINT AT Y1,Xis: RETURN 
REM #**# ‘END’ ROUTINE *** 
FOR I=1 TO 4: IF @(1I)<313 T 
GO TO 11460 
NEXT Is PRINT AT 6,0; FLASH 
is"YOU'VE WON! !" 
1121 LET Wi=Wi+1 
113@ FOR I=1 TO 1@@@: NEXT I 
114@ GO TO 1198 
116@ PRINT AT 6,@:; FLASH 1;:"SORR 
Y, YOU'VE LOST” 
1161 LET Li=Li+1 
117@ FOR I=1 TO 3@@: NEXT I 
119@ CLS : PRINT " Me  P 
RINT INVERSE 13" SCORES ": PR 
INT =: PRINT "WINSs "sWis PRINT : 
PRIN? "LOSSES: "sLi 


1210 PRINT =: FRINT "PLAY AGAIN? ( 


Yv/N)" 
1220 LET Z$=INKEY$: IF Z$="" THE 
N GO TO 1220 

1230 IF Z$="Y" THEN GO TO 41 
124@ IF Z$<>"N" THEN GO TO 1220 
1250 PRINT "GOODBYE! !!":; STOP 
1260 REM ¥**DEAL ROUTINE *** 

1270 LET P=P+3 

1280 IF D$<>"" THEN GO TO 1318 
1299 FOR I=1 [0 7: IF B(I)>1 THE 
N LET I=8@: NEXT I: GO [Oo 330 
1300 NEXT I: GO SUB 1720 


IF P=@ THEN LET H#=" 

1360 

IF LEN D#/2=P-1 THEN LET P 
D$/2:3 GO TO 1358 

IF LEN D#/2=P-2 THEN LET P 
D¢/2: GO TO 1358 

IF P>LEN D%/2 THEN LET P=0@ 
TO 1278 

LET H$=D$(2eP-1 TO (2%P-1)+ 


PRINT AT 21,0;H$: GO TO 330 
REM ***CLOSE UP REMAINING C 


1380 LET L$=D$( TO (P-1)#2): LET 
R$=D$ (2*#P+1 TO LEN DS): LET D#= 
L#¥+R$: RETURN 

STOP 

BORDER @: PAPER @: INK 6: C 


60 SUB 7008 

PRINT “ 

PRINT INVERSE 1;" * 
HHSTILTONS ## - 
1430 PRINT " FROM 1-7 CARDS AR 
E DEALT TO SEVEN COLUMNS, THE LA 
8T CARD ONLY" 
1440 PRINT "OF EACH COLUMN BEING 
FACE UPWAR-DS" 
1450 PRINT " EXPOSED CARDS ARE 
MOVED IN" : 
1460 PRINT "ASCENDING SUIT SEQUE 
NCE TO ACES AS THESE APPEAR, AND 
IN DESCENDI-NG"; 
147@ PRINT " SEQUENCE OF ALTERNA 
TE COLOURSTO THE BOTTOM CARDS OF 
COLUMNS. " 
1480 PRINT " COMPLETE SEQUENCES 
OF CARDS MAYBE MOVED BETWEEN COL 
UMNS. " 
1498 PRINT "EMPTY COLUMNS MAY BE 


FILLED ONLYBY SEQUENCES HEADED 

BY KINGS.” 

1500 PRINT " THE REST OF THE P 

ACK IS DEALT, THREE CARDS AT A TI 

ME TO A WASTE" 

151@ PRINT "FILE, THE TOP CARD OF 
WHICH IS ALWAYS AVAILABLE. ANY 
NUMBER OF REDEALS ARE ALLOWED. 

1520 PRINT "PRESS ‘ENTER’ TO CON 

TINUE." 

1530 INPUT LINE I: CLS 

154@ PRINI “ CARDS ARE MOVED BY 
SIMPLY TYPING THE ORIGINAL 

COLUMN NUMB-ER,OR P FOR WASTE PI 

LE,FOLLOWED BY THE DESTINATION C 

OLUMN" 


1558 PRINT “NUMBER OR ‘F' FOR FO 
UNDAT LON. “ 

156@ PRINT : PRINT " D DEALS A F 
RESH GROUP OF THREE CARDS,E ENDS 


THE GAME" 

1570 PRINT : PRINT "PLEASE PRES 
S ‘ENTER‘." 

1580 INPUT LINE A: POKE 23458, 
a 

1590 DIM F(4) 

1600 FOR F=1 TO 4: LET F(F)=13: 
NEXT F 

1610 GO TO 41 

1710 REM ***AUTOMATIC FINISH#** 
172@ FOR @=1 10 7: IF T(@)<>@ TH 
EN LET @=8: NEXT @: GO TO i174@ 
173@ NEXT @: GO TO 1110 

1740 FOR @=1 7O 7: IF T(@)=@ THE 
N NEXT @: GO 10 1720 

1742 LET X=@: LET Y=T(Q@) 

1745 LET X#=A#(X,Y): GO SUB 970 
1750 IF F(S2)<>NU-1 THEN ~ NEXT @ 
: GO TO 172 

1760 LET @(S2)=8(S2)+1: LET F(S2 


JeNU: PRINT AT @, 20; 

177@ PRINT AT F(S2) ,20+(S2*2); 

178@ PRINT x# 

1799 GO SUB 104@: PRINT "  "s: L 

ET AS(X,Y)="  “s IF Y>@ THEN LE 
lr TCXd=TCX) 1 

1800 IF T(X)=B(X) THEN LET B(x) 

mB(X) 1 

1810 NEXT @: RETURN 

@999 STOP 

7@O00 RESTORE 9020: FOR I=08 TO 7 

9010 READ A,B,C,D: POKE USR "A"+ 
1,Ar POKE USR "B"+1I,Bs POKE USR 

"C"+41,C: POKE USR "D"+1,Ds NEXT 
I 

9020 DATA @,BIN 1900100,16,16,16 
,»BIN 11101110,BIN 111000,BIN 111 

200 

930 DATA BIN 08111900,254,BIN 1 
1111@0,BIN 1910100 

9040 DATA BIN 01111100,254,BIN 1 
111111@,BIN 1111111@,BIN 1111111 

®,BIN 1111100,BIN 19010010,BIN @ 
1010100,BIN @1111100,BIN 111000, 
16,16 

9050 DATA BIN 00111000,16,16,164, 
16,0,BIN 111000,16 

9060 FOR F=@ TO 7: READ A,B,C,D: 
POKE USR "E"+F,A: FOKE USR "F"+ 
F,B: POKE USR "G"+F,C: POKE USR 
"H"+F Ds: NEXT F 

9078 DATA @,0,16,8,8,0,16,8,08,8, 
16,8,0,0,8,16,7,224,7,224,8,146,0 
,2,16,8,0,0,16,8,8,8 

9080 FOR F=@ TO 7: POKE USR "1"+ 
F,@: NEXT F: POKE USR “I"+4,255 
9098 FOR F=@ TO 7: POKE USR "Jg"+ 
F,16: POKE USR "K"+F,8: NEXT F 
919@ RETURN 


SHEEPDOG TRIAL 


LEON GOODFRIEND 
Original program by Simon Williams 


GENERAL DESCRIPTION 


It's just one man and his dog who have the task of penning the 
three sheep in this sheepdog trial simulation. You must guide your 
obedient and loyal dog around the four progressively more 
difficult stages to force the three obstinate sheep into their pens. 
Various natural and manmade obstacles make your task harder 
and you lose points the longer it takes. On completion of the four 
stages your score is given for the sheepdog trial. 


DETAILED DESCRIPTION 


Lines 10-65 Print the title page and set up the user-defined 
graphics characters. 
70-240 Display the instructions. 
250-360 Draw course for stage one. 
390-410 Position sheep and dog. 
420-495 Stage one. 
500 Auto-scroll. 
510-560 End page for stage one. 
570-730 Draw stage two course. 
740-750 Locate dog and sheep. 
760-805 Stage two. 
810 Auto-scroll. 
820-880 Print stage two end page. 
900-1060 Display the stage three course. 
1070-1090 Position three sheep and the dog. 
1100-1160 Stage three. 
1170-1240 The end page for stage three. 
1250-1350 Draw the fourth stage course. 
1360-1410 Position sheep and dog and draw the pen. 
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1420-1460 Stage four. 


1465-1600 Play congratulatory tune, flash the border, print 


the final page, ask user for another go. 

7000-7030 Introductory tune. 

8000-8240 User control of the sheepdog and semi- 
random movement of the three sheep. 


9000-9070 The initial starting positions of the three sheep 


and the sheepdog. 


lf PAPER F: INK @: FLASH S: BR 
IGHT @: OVER @: INVERSE @: BORDE 
R @: CLS 

26 PRINT INVERSE 135AT 2,135 "5 
HEEP"SAT 4,143 "DOG"iAT 6,133 "TRI 
AL" 

3@ FOR a=68 TO Sil 

4@ READ 6: POKE USR "a"+a,6 

S@ NEXT a 

69 DATA 9,9,127,255,71,17,17,8 
99,989,465, 254,63,53,33,9,5,25,25,6 
2,62,127,83,28,9,129,255,129,255, 
129,255, 12¢ 

65 GO SUB 7ae8 

78 PRINT ’’ "In this game you m 
ust make” 


88 PRINT “your sheepdog 8 guid 


e three” 

SO PRINT "Sheep A through a se 
ries of” 

1g6@ PRINT “obstacles.” 

1196 PRINT ’’ "Controls are:-" 

12@ PRINT TAB 123;"T Y WU" 

138 PRINT ’TAB 125 "G H" 

149 PRINT *TAB 123"V B_ WN" 

158 FOR a=8 TO 2XFI STEP FI/4 

168 PLOT 123,28: DRAW L12*¥COS a4, 
PRSIN a 

178 NEAT a 

189 PRINT ’?’°? "There are four st 
ages to the” 

1?@ PRINT "test. Foints are los 


t for taking” 

288 PRINT “too long over a stag 
e. The sheep” 

2i@ PRINT "will only move when 
the dog gets” 

215 PRINT "close to them” 

216 PRINT "In the first three s 
tages you must chase the sheep 

into the space at the base of 

the screen,” 

217 PRINT "Each sheep becomes i 
nactive whenin its pen" 

212 PRINT "In stage two the blu 
P areas are ponds which the shee 
P will not cross,but if there a 
re gaps in the fencing between 
the ponds, the sheep will go th 
rough them.” 

228 PRINT "In stage four all th 
e sheep willremain active until 
the third one is penned.” 

225 DIM x(3)i DIM y(3): LET p=9 

238 PRINT ’’ "Press any key to 5 
tart” 

2498 PAUSE & 

258 PAPER 4: CLS 

268 PRINT ’’TAB 83 "“DDO0DDDDDDDDD 
DDDE" 

2/8 PRINT TAB 83" o00000 
Poa 
288 FOR a=4 TO 12: PRINT AT a,8 
S"D"STAB 233 "0O"2 NEXT a 

2?9 PLOT 73,118 

388 FOR a=1 TO 12 
31@ DRAW °,8,-PI+RND-.5 

326 NEXT a 
3398 PRINT AT 7,123 "¢C CO"SAT 
8,125 "ce ec" 

348 PRINT AT 5,195 "/\" 

368 PRINT AT 11,183 "###H 


AK 


378 PRINT AT 13,85 "DODDDAD BD 


DDDD" 
S380 PLOT 117,462: DRAW 27,6,1.5% 
PI 
398 GO SUB Fe8eEe 
498 PRINT AT 18,635 "Stage score: 
"Sess" * 
4190 GO SUB Bade 
420 FOR a=1i TO n 
43@ IF y(al¢=13 THEN GO TO 48¢ 
442 LET yCal=y(n)i LET x(adb=xin 
: LET n=n-1l 
4598 BEEP .3,9 
489 NEXT a 
498 IF n>@ THEN GO TO 466 
495 FOR a=1 TO 288: NEXT a 
SO@8 FOKE 23692,255 
S1@ FOR a=i TO 25: PRINT : NEXT 
a 
S20 PRINT TAB 463; "Stage one comp 
leted" 
S38 PRINT ’’TAB Lis "Score: “iss 
548 LET p=ss 
545 GO SUB 7add 
S59 PRINT ’’?’ "Press any key for 
stage twoar7rr77 77? 
S6@ IF INKFEYS=""" THEN GO TO 36 
3 
S798 CLS 
S?@ PLOT 71,69: DRAW 9,1968,-PI: 
DRAW 115,@: DRAW @,-1989,-PFI 
699 PLOT 78,48: DRAW @,188,-PI: 
DRAW 115,484: DRAW 8,-189,-PI 
6ig DRAW -22,98: DRAW -26,-468: D 
RAW ~15,8: DRAW -26,46: DRAW -32 
y! 
» DRAW 8,798 
INE 1 
FOR «=88 TO 28@ STEP 24 
FOR a=@ Ta ? 
LET b=INT (SQR (49-ata)+.5) 
PLOT x+a,i198-bi DRAW @,2%b 


P PLOT x-a,1898-bi DRAW @,2*b 
NEAT a 


?1H POR a=11 TO 23 STEP 3 

728 IF RND<.7 THEN PRINT AT 92, 
agp °" 

Pos NEXT a 

P48 GO SUB Fasaa 

Y45 PRINT AT 26,83 "Running scor 


e: "p’ "Stage score: "$§ 

24S PRINT AT 21,13issi" "§ 

Poe GO SUE Saas 

769 FOR a=i TO n 

YP FF »y(ad<t 1S THEN GO TO 799g 
LET ylal=y(n 


BEEF .3,9 
NEXT a 
IF n>@ THEN GO TO 748 
GO SUB 7999 
FOR a=1 TO 289: NEXT a 
B19 POKE 23692,255 
FOR a=1 TG 25: PRINT : NEXT 


PRINT TAB 6; "Stage two comp 
leted" 
S40 PRINT ’’ "Score so far: "35s 
+p 
359 LET p=ptss 
S68 PRINT °? "Press any key for 
stage three” 
are PRINT & 2? 243 8-822 
eoe IF INKEYS="" THEN GO TO 88 
g 
Fee CLS 
Pig’ PRINT ’’TAB 63 "C€cececcecceéce 
ecececec" 
P28 PRINT TAB 43 "€CCCCCECCE 
ece" 
P38 PRINT TAB 463 "c¢e 
cec” 


P49 PRINT TAB 
. e" 
950 PRINT TAB 
cc" 
968 PRINT TAB 
ce” 
970 PRINT TAB 
pD" 
982 PRINT TAB 
D nn 
999 PRINT TAB 
DDD" 
1994 PRINT TAB 
DD" 
1@1g8 PRINT TAB 
CDD" 
{826 PRINT TAB e€cecec 
cD" 
1938 PRINT TAB 463 eccc’e 
¢ ” 
1949 PRINT TAB "CECE e€eceée 
co" 
1958 PRINT ’’ "Running score: "sp 
1868 PRINT "Stage score:” 
1978 GO SUB 9e886 
1988 PRINT AT 19,135ss3" " 
19698 GO SUB sage 
119@ FOR a=1 TA n 
1i1@ IF ylal<isS THEN GO TO 1138 
112@ LET ylab=y(n): LET x(a)d=xn 
); LET n=n-1 
1125 BEEF .3,9 
11398 NEXT a 
1148 IF n?@ THEN GO TO i#geg 
1158 GO SUB 788mg 
1168 FOR a=1 TO 286: NEXT a 
1178 CLS 
1189 PRINT *’’’TAB 3; "Stage three 
completed" 
1178 PRINT ’’ "Score: "“"j;ss+p 
12698 LET p=ptss 
1216 PRINT *’’ "Now you just have 


to get the" 
ieee PRINT "sheep into their pen 
1238 PRINT 7°77’? "Press any key" 
1248 FAUSE @ 
1258 CLs 
1263) PRINT °?7" €DDACDDICDDPCDAD 
CODDCADDCDEDE " 
12?9 FOR a=3 TO 16 
1288 IF a-3*INT (a/3)=2 THEN PR 
INT AT a, 25"C"3 TAB SO3"C": GO Ta 
Lage 
1298 PRINT AT a,23"D"3TAB 303 "2" 
1398 NEXT a 
LS1G PRINT " €BDACDDDCDDDCHDICD 
DDC DODE DODCE " 
1328 FOR a=1 TO 29 
i328 LET x=RND¥25+4: LET y=RND¥1L 
Et4 
1348 PRINT AT »,xjCHRS (144+RND) 
L359 NEXT a 
1368 GO SUB Fane 
378 PRINT AT 19,33 "Running scor 
> "Gp’ "Stage score:" 
i393 PRINT AT 18,133" "SAT 11 
5133" "EAT 22,139" o 
i4g@8 PLOT 194,73: DRAW 9,23: DRA 
Wo3i,8: DRAW @,-23 
1495 PRINT AT 24,13issi" " 
if GO SUB SBeaag 
i420 LET ct=@ 
1429 FOR a=1 TO 3 
i44@ IF x(a)>12 THEN IF x(a)<i? 
THEN IF »(a)39 THEN IF wta)<i 
LET ct=ctti 


a 
IF ct<>3 THEN GO TO 1485 
Ga 


© on 


a 


4g 03 OI I Ob 
iS) 


iQ) ca 


PAUSE 19 


ISG NEXT b 

Im Le NEXT a 

[Se POKE 23692,255 

1830 FOR a=1 TO 25: PRINT : NEXT 
ry 

{840 PRINT "You have now complet 

ed the trial” 

1550 PRINT ?? "Your dog scored "j 
setps”"” points out of” 

1568 PRINT "a possible 8¢@." 

IS7O0 PRINT 777??? "Do you wish to 
Play again -y/n "3 FLASH 3 "?P""’ 
IS8@ IF INKEYS="y" OR INKEY$="¥" 
THEN RUN 

LS°@ IF INKEY$S="n" OR INKEYS="N" 
THEN GO TO $999 

1400 GO Ta i588 

7890S FOR a=18 TO 25: BEEF .@4,a: 
NEXT a 

7@O1@ FOR a=1@ TO 25: BEEP .@4é,a! 
NEXT a 

YO1S FOR a=1 TO. 28: NEXT a 

7820 FOR a=25 TO 1@ STEP -1: BEE 
P .@6,ai NEXT a 

7O3I89 RETURN 

BOG LET nm=nm+i 

BO19 LET a=2G-INT ( (nm-Se) /40) 
8928 IF at+2@ THEN GO TO 8848 

LET ss=a: IF ss<¢@ THEN LET 


Bade LET aS=INKEYS 

B858 LET px=xtlad="u" OR as="h" 

OR as="n")-(as="t" OR as="g" OAR 

as="y"} 

BOoe LET py=y-Cas="t”" OR ase"y"” 

OR aS="u")+(as="v" OR at="b" OR 

as="n") 

Bera IF (py,px)=" " THEN 
GO TQ S126 

eg@ae IF SCREE (py,;x}=" " THEN 
LET 


(y,px}=" " THEN 
Sil2zg 


hy My sa 
gD 4 Q 


"GAT py,pxi" 


QUADRANGLE 


nh fe td 
Qrey tw 


P adx=xlse)—-xi LET dy=yla)- 
d-dxkXdxtdytdy 
60 TQ e239 
AND n<a THEN GO TO 


FE T pxeex(al+SGN dx: LET py= Seuernenn ee OOP eee ey eT 
2) +5GN dy LEON GOODFRIEND 
€ SCREENS (py,px)=" " THEN Original program by 


8228 
nB 

SCREENS (py,xta))=" "THE Eileen Baghoomians and Steven Fawthrop 

x=xia)iGO TO e220 

SCREENS (y(a),px)=" " TH 


py=y(a): GO To se2¢ GENERAL DESCRIPTION 
6213 IF RND>.@1 THEN LET px=xia 
)+SGN (RND-.5): LET py=y (a) +SGN In this challenging tactical game your task is to position your 
(RND-.5): GO To s1s¢ counters on the board so that they form the four comers of a 
fquare, The game can be played by two players or against the 
"3s INK gomputer, which has three levels of difficulty. The program shows 


how a computer can make logical decisions about where to place 
ifs pieces, based on a formula for calculating the relative value of 
different positions, similar to the methods used in writing chess 
programs, 


O83 LET ss=28: READ x,y: LET nm 
=G: LET n=3 


?@1@ FCR a=1 TO 3S: READ x(la),yla 
}: PRINT AT y(a)d,x(a)3 INK 73 "A" DETAILED DESCRIPTION 

: NEXT 2 * 

iced PRINT AT y,x5"B" ~ | Lines 10-60 Set up machine code and user-defined graphics. 
casi sini 2 _ 110-160 Define arrays and set up their contents. 

7G48 VATA 19,3,12,6,14,4,16,5 170-212 Give instructions and find out how many players. 


SoeG=a =“ Ss oo 2 ‘ 
eee cs 213-300 Ask for level of play and find out who starts. 
ee, ae Pee ge 310 Set up board. 


9976 DATA 5,5,18,11,5,14,24,6 


320 Print out whose move. 
330-334 Is it the computer's first move? If so, decide its 
starting column randomly. 


2 


eo 


* This program needs a 48K Spectrum 


340-370 See what player's move is, and check thatit’s legal. 


380 Print recommended move if required. 
390-395 Move player's or computer's piece to 
appropriate column. 

400-410 Print piece in position on the screen. 
420-480 Has someone made a quadrangle? 
520-650 Alter board according to move. 
660-764 Game is over: is ita draw or has someone won? 
See if player wants to play again. 

780-1000 Decide the computer's move. 
1050-1080 Print out the board. 

1090-1160 Set of short utility subroutines. 

1400 Data. 

8000 Clear bottom of screen. 

9000-9800 Print the instructions. 


ig INK @: PAPER 7: FLASH @: BR 
IGHT @: OVER @: INVERSE @: BORDE 
R 6: CLS 

15 PRINT AT 11,1983 FLASH 15"P1 
Base wait” 

28 CLEAR 49989 

25 PRINT AT 11,163 FLASH 13 "P1 
ease wait” 

368 FOR a=69984 TO 66615: READ 
6b: POKE a,b: NEXT a 

35 REM data for machine code A 
ND routine 

46 DATA 33,76, 234,126,35,35,16 
6,71,43,126,35,35,166,79,291 

58 FOR a=8 TO ¥: READ Bb: FOKE 
USF "a"+a,b:i NEXT a 

68 DATA 124,129,189,189,189,18 
F,129,126 

119 DIM aS(2,12): DIM 1(2): DIM 
d$(2,3): DIM s(2): DIM (71,3): 
DIM 9(13): DIM m(6,8,3) 

lid LET bs="" 

128 LET d#(1)=CHRS 16+CHRS G+"A 


130 LET d#(2)=d$(1):3 LET d#(2,2 
PeCHR® 7 

{4@ FOR k=2 TO 71: READ f(k,1): 
NEXT k: LET g(1)=1: FOR k=2 TO 

SioLeET g(k)=2¥g(k-1): NEXT k 

i170 GO SUB F889 

178 PRINT INVERSE 1Ls5AT 7,115" 
UADRANGLE" 

10@ INPUT "Gne or two players? 
"| LINE p& P 

164 IF CODE p#>S? OR CODE p#<49 

THEN GO TO 189 

165 LET p=VAL pS: IF p<>i AND p 
(>2 THEN GO TO 189 

200 IF p=i1 THEN INPUT "Your na 
me please "sx: LET yS="Computer 
4” 

219 IF p=2 THEN INPUT "First p 
layer’s name? "3x? "Second playe 
p's name? "$78: LET p= 

2ill LET 1¢1)=LEN x$: LET 1¢2)=5L 
EN y#: LET aS®(1)=x$i LET a@(2)=y 
Wi IF 1¢(41)312 THEN LET 1(1)=12 

212 IF 1(2)3?12 THEN LET 1(2)=1 
» 

‘ 

213 CLS : PRINT AT 5,185 INVERS 
— 15; "YOUR FIECES"’’”’ 

214 FOR k=1 TO 2: PRINT ’as(k, 
TO 1¢(k)),d8(k): NEXT k 

226 IF p=1 THEN INPUT "Level o 


f play (1-3) ? "3 LINE t%: IF CO 
DE t>S7 OR CODE t#<49 THEN GO 
TO 229 


221 IF P<>?i THEN GO TO 2398 

225 LET t=VAL t%$: IF t<>1 AND t 
<>2 AND t<3>3 THEN GO TO 226 

239 IF p=@ THEN LET t=@: FOR a 
=1 TO S@68: NEXT a 

248 LET ts=t: LET s(1)=@: LET s 
(2) =8 

258 LET rpi=INT (RND¥2.5+3.5): 
LET rni=INT (RND¥2.54+2.5)i LET r 


m=59: LET zx=@: CLS 

260 IF aS(2)<>"Computer 

EN GO Ta 3198 

276 IF t<3 THEN LET p=1: GO 

31d 

2388 INPUT "Do you want to go 
rst -y/n "SbS! IF bS<>"y" AND 

se "mn" AND BbS<>"N” AND BbSK>"Y" 

EN GO TO 2869 

2968 LET p=bS="n" 

388 IF bS="¥" OR bS="¥" THEN 

ET zx=1 

S318 FOR k=1 TO 7: FOR 1=2 TO 7: 

LET m(k,1l,1)=-1: NEXT 1: LET m( 
k,1,1)=@: FOR m=2 TO 3: FOR 1=1 
TQ 7s LET m(k,lym)=@82 NEXT 1: NE 
XT ms NEXT ki GO SUB 195¢ 

328 GO SUB 88G@@: PRINT AT 21,93 
aS(p+1, TO i(pti)d)d$s"’s move"s: L 
ET rm=rm+i 

338 IF pt>l OR a$(2)<>"Computer 

" THEN GO TO 349 

331 IF zx=1 THEN LET g=p: GO T 
0 7S 

S32 LET zx=1i LET g=INT (RNDX4) 
+3: IF g>=6 THEN LET g=4+(INT (¢ 
RND¥2)+2)%SGN (RND-.5) 

334 GO TO 359 

348 BEEP .8,5: INPUT "Column (1 
-7) PF "3 LINE bS: IF (CODE bS>5?7 


OR CODE 6249) AND bS<> "nh" THEN 342 


S45 IF bS<>"h" THEN LET g=VAL 
bs 

258 IF bS="h" THEN LET q=@: LE 
T t=3: GO TO 78d 

3698 IF 9<1 OR g>? THEN PRINT A 
T 15,083 "There is no such column 
- pleasetry again": FOR k=8 TO 5 
O88: NEXT k: GO TO 329 

378 LET g=g-1: IF m(gt+1,1,1)=6 
THEN FRINT AT 18,985 "Column "39+ 
is" is full - please try again”: 


FOR k=@ TO S88: NEXT k: GO TO 3 


S360 LET t=ts: IF bS="h" THEN P 
RINT AT 16,83TAB 315" I recommen 
do"s9tl5". "3 GO TO 346 

390 LET m(gt1,1,1)=m(gt1,1,1) 41 
= LET m(gtiym(gti,l,l)+1,1)=p: G 
0 SUB 49@: GO SUB 4290: IF est>"y 
" THEN GO SUB 329g 

$95 GO TO 446 

400 IF p=1 AND a¥(2)="Computer 

" THEN PRINT AT 15-2¥m(gt1,1 
,1),2%g+1O5 FLASH LidS(p+1):i FOR 

leS TO 15: BEEP .2,1: NEXT 1 

41@ PRINT AT 15-2¥m(gt1,1,1),2% 
@i1O; ds (pti) 

4/0 LET g=p: LET x=g: LET y=m(g 
#1,1,1) 

4308 LET es="n" 

448 FOR a=1 TO 6: IF a=y THEN 
00 TO 474 

445 IF xty-a>éd OR x+y-ac@ THEN 

G0 TO 455 

45@ IF m(x+i1,atl,1)=q AND m(xty 
eati,ytl,1)=q AND m(xty-atl,ati, 
1)=q THEN LET e@="y": LET y@=1: 

GO TO 48¢ 

455 IF x-y+ta>é OR x-yta<t@ THEN 

GO TO 478 

460 IF m(xt+i,atl,i)=q AND m(x-y 
tat+tLleytl,id=q AND m(x-ytatl,atl, 
{)=q THEN LET e$="y": LET y8=-1 
: GO TO 488 

478 NEXT a 

4690 RETURN 

528 LET vl=2*x+2*(yt+4)i POKE 69 
OOO, INT (v1/256): POKE 69991,v1- 
Z256XPEEK 49996 

§22 FOR b=2 TO Fi: POKE 49962,1 
NT (#(b,1)/256): POKE 499903, (b, 
1)-256%PEEK 468982: LET vm=USR 49 
O44: IF vm=vl THEN GO SUB 5498 


S38 NEXT BS RETURN 

349 IF p=1i1 THEN GO TO 498@ 

S42 IF ABS (f(b,2))>5 THEN RET 
URK 

S43 IF #(6,2)<@ THEN GO TO 629 
S44 LET £(b,2)=f(b,2)+1: LET #92 
=": IF f(b,2)=1 OR f(b,2)=2 THEN 

LET ##=f (b,2) 

S58 LET us=1 

S6@ POKE 466960, INT (f(b, 1)/256) 
: POKE 66991, (b,1)-256%PEEK 469 
@@: FOR u=8 TO 12: POKE 689962,IN 
T (g(ut1)/256): FORE 68993, 9(utl 
)-2ZE6K%PEEK 69082: LET vx=USR 4998 
@4: IF vx=a@ THEN GO TO Seg 

S?@ IF usc? AND u<>x THEN LET u 
L=u 

572 IF u36& AND ut >y THEN LET u 
2=u-6 

5@8 NEXT us LET m(xti,u2til,ustl 
=aem(xtleu2tl,sust+1)+f#8: LET mult 
Lhytl ust+liam(ultilsytil,ust+l) +40: 
LET mfulti,u2+i,uSt+l=mtult+tl,u2 
t1,us+i) +4¢ 

S°¢@ RETURN 

é88 IF ABS £(b,2)25 THEN RETUR 
N 

682 IF #(6,2)>@ THEN GO TO 649 
683 LET £(b,2)=f(b,2)-1: LET 9 
=7: IF #(b,2)=-1 OR f(b,2)=-2 TH 
EN LET f@=-f (b,2) 

619 LET usS=2: GO TO 349 

628 LET f@=-7: IF f(b,2)=-1 OR 
#(6,2)=-2 THEN LET f9=f (b,2) 
6369 GO SUB 619: LET f(b,2)=16: 
RETURN 

644 LET f@=-7: IF f(b,2)=1 OR f 
(b,2}=2 THEN LET 4@=-f(b,2) 

639 GO SUB S5@: LET £(b,2)=-19: 
RETURN 

668 FOR g=1 TO 7: IF m(g,1,1)<> 
6 THEN GO TO 489 


465 NEXT 9g 


670 IF e#<>"y" THEN GO SUB 899g 
O! PRINT AT 18,63 FLASH 13"The g 
ame is a draw": GO TO 756 

600 IF e®<>"y" THEN LET p=1-p: 

00 TO 329 

602 LET s(pti)=s(p+l)+1: GO SUB 

OOOO: PRINT AT 19,13-1l(pti)/2ia 
Wl(prel, TO l¢ptid)$s" wins” 

690 PRINT OVER 13 FLASH 15 INK 

OAT 15-2%y,19+2%x5" "SAT 15-2% 
By 1O+2%x5" "SAT 15-2¥y,1G+2R(xty 
Ok (y-ad)5" "SAT 15-2¥a, 194+2% (x+y 
O¥(y-ados” * 

700 FOR a=1 TO 4 STEP 3: FOR b= 
1 TO 3: BEEP .3+.2¥(b=3),a+4: NE 
MT bi NEXT a: FOR a=1 TO 5: BEEP 

S+.5%(a=5),11-ABS (3-a): NEXT 
a 

748 FOR a=i TO S8@: NEXT a 

745 FRINT AT 28,43: FOR a=1 TO 
2) PRINT ’" "Sa6S(a, TO 1ll(ad),st 
@)i NEXT a 

7S@ INPUT “Another game -y/n ? 
"“Fe®: IF es<>"y" AND e$<>"n” AND 

ew<>"N" AND ef<>"Y" THEN GO TO 

738 

768 IF e$="n" OR ef="N" THEN G 
0 TO 9999 

762 INPUT "Are the players the 
fame "Se8: IF es="n" GR es="N" T 
MEN RUN 

763 IF es="y" GOR es="Y" THEN G 
0 TO 25¢8 

764 GO TO 7é2 

768 PRINT AT 18,83 FLASH 15 "Thi 
nking"$ 

785 FOR k=1 TO 7: PRINT FLASH 
15"."3: BEEP .92,9 

798 IF mtk,1,1)=6 THEN LET m(k 
,1,2)=-i9e@: GO TO 81g 

69@ LET r=k-1Li LET s=m(k,1,1)41 


GO SUB 19°@: LET m(k,1,2)=vx 

i@ NEXT ki GO SUB f?9: IF m(gt 
1,1,2)5>°93 THEN GO TO 38g 

B29 FCR k=1 TO 7: IF m(k,1,1)<¢5 
THEN LET g=1i-p: LET r=k-1: LET 
s=m(k,1i,1)+2: GO SUB 1999: IF v 
x=18G@ THEN LET m(k,1,2)=-999 
838 IF m(k,1,2)>-999 THEN PRIN 
T FLASH 15"."3: BEEP .92,@: LET 
g=p: LET r=k-1: LET s=m(k,1,1)+ 
1: GO SUB 11@@: LET wmtk,1,2)=vx 
S48 NEXT k 

B3@ IF t=1 THEN GQ TO 749 

S32 IF t=2 THEN GO SUB 1128: G 
0 TO 742 

84649 FOR k=1 TO 7: IF m(k,1,2)<- 
S97 THEN GO TO 95¢ 

862 LET m(kym(k,1,1)+2,1)=p: LE 
Tm(k,l,li=m(k,1l,1)+1 

S78 FOR m=1 TO 7: IF m(m,1,1)=4 
THEN LET m(m,1,3)=-199@: GO TO 
33g 

8735 LET q=1i-p: LET r=m-1: LET s 
=n(m,l,il)+1: GO SUB 1190: LET m( 
m, 1,3) =vx 

S898 NEXT mi: PRINT FLASH 15"."$ 
: BEEP .92,4 

S78 FOR a=1 TO 4: LET 1=-198@: F 
OR m=1 TO 7: IF mtm,1,3)>1 THEN 
LET l=m(m,1,3): LET lgq=m 

68 NEXT a: LET m(lq,1,3)=-1999 
s LET mtk,i1,2)=m(k,1,2)-1¥rnl 
Sig NEXT in 

929 LET g=p: LET r=k-1: LET s=m 
(k,1,13)+1: GO SUB 1999: IF vx=1¢9 
88 THEN LET m(k,1,2)=m(k,1,2)-r 
nixXrm 

P38 LET m(k,i,li=m(k,1l,1)-1: LE 
Tmtksm(k,l,1)+2,1)=-1 

S49 PRINT FLASH 15"."3: BEEP . 
82,9 

938 NEXT ki LET qgq=p 


m 
o 


9798 GO SUB 99h 

88 GO TO 38Eg 

998 LET g=-1: LET 1=-19@@: FOR 
kel TO 7: IF m(k,1,2)31 THEN LE 
T lem(k,1,2): LET g=k-1: GO TO 1 
OO 

VPS IF mt(k,1,2)=1 THEN IF ABS 
(4-k)<ABS (4-9) THEN LET l=m(k, 
1,2): LET g=k-1 

10898 NEXT ki: RETURN 

1050 FOR a=@ TO 46: PLOT 7é+1ié%a, 
L985: DRAW &6,-94: PLOT 91+16%a,15 
S! DRAW §8,-96: NEXT a 

L055 FOR a=@ TO 5: PLOT 76,59+16 
Hai DRAW 111,68: PLOT 74,76+14*a: 
DRAW 111,68: NEXT a 

196@ PRINT AT 6,@3a8(1, TO 1(1)) 
" "$s(L) ,a8(2, TO 1(2))5" "S52 
} 

1070 FOR a=1 TO 7: PRINT AT 15,8 
+2¥ajari NEXT a 

1080 RETURN 

1090 LET vx=@: LET x=r: LET y=s: 
00 SUB 439: IF es="y" THEN LET 
Vemlg@gas RETURN 

1092 LET g=i-q: LET x=r 
: OO SUB 438: LET q=1-q 
y" THEN LET vx=?99 
1094 RETURN 

L119@ LET vx=m(kym(k,1,1)42,1+p): 
RETURN 

4120 FOR k=1 TO 7: IF m(k,1,2)<- 
997 THEN GO TO 1168 

$122 LET m(k,m(k,1,1)42,1)=1: LE 
T m(k,l,li=m(k,1,1)41 

$i3@ IF m(k,1,1)<6 THEN LET q=1 
ep! LET r=ki LET s=m(k,1,1)41: 6G 
© SUB 1199: LET m(k,1,2)=m(k,1,2 
berpltvx 

1140 LET m(k,1,1)=m(k,1,1)-1: LE 
T m(k,m(k,1,1)4+2,1)=-1 

119@ LET q=pt2: LET r=k: LET s=m 


LET y=s 
IF e¢=”" 


(k,1,1)+1: GO SUB 11998: LET m(k, 
1,2)=m(k,1,2)4+rpiktvx 

114@ PRINT FLASH 15"."5: NEXT k 
: LET q=p: RETURN 

1498 DATA 387,399,396, 498,432,48 
8,771,774, 788, 792,816,864, 1539,1 
942,1548, 1569, 1584, 1632, 3975,3987 
8, 38384, 3996,3126,3168,6147,6158, 
6156,6168,46192, 6249,645, 659, 4666, 
6386, 728,1285,1299,1388,1329,136¢ 
32965, 2570, 2589, 2698, 2649,5125,5 
139,5149,5169,5269,1161,1179,118 
8, 1224, 2313, 2322, 2349,2376,4617, 
4626, 4644, 4689, 2193, 2219, 2244,43 
69,4356, 4429,4257, 4299 

Sega FOR c=18 TO 21: PRINT AT c, 
B3TAB 313" "$3 NEXT c: RETURN 
9888 REM instructions 

?9E5 INK 7 

98198 FOR a=@ TO 21: PRINT AT a,@ 


"3: NEXT a 


9829 FOR a=08 TO 464 STEP 8 

99368 INK a/8 

7849 PLOT a,a: DRAW 255-2%a,@: 
RAW @,175-2%a: DRAW 2¥a-255,9: 
RAW @,2¥a-175 

9959 EEEP .1,a/4 

8683 NEXT a 

eO?S INK @ 

P8609 FOR a=8 TO 56 

POSS POKE 23494,50-a 

PIge PRINT AT 11,1135 "QUADRANGLE" 
Pligg BEEP .@é,a 

SiI28 NEXT a 

9138 INPUT "Do you want instruct 
ions -y/n ?P"3is 

Pl4ao IF iste"y" AND is<>"n" AND 
is<>"N" AND i8<>"Y" THEN GO TO 
Fi3Sg 

Pil5G IF is="n" OR is="N" THEN G 
0 TU f88m 


8140 POKE 23692,255 

9170 PRINT AT 21,4 

VLG PRINT ’?’TAB 115 "QUADRANGLE 
f 

Vi¥@ PRINT *7"At the beginning o 
f the game you" 

8200 PRINT "will be given the op 
tien to play" 

VR1O PRINT "against the computer 
Or against" 

9220 PRINT "another player.” 

Y230 PRINT ’?"The object of the g 
ame is to put” 

9240 PRINT “four pieces at the 

forners of a” 

VERSO PRINT "square. The first t 

® do this is” 

92608 PRINT "the winner.” 

9270 PRINT "Each column is fill 

ed from the" 

9200 PRINT "bottom up.” 

9290 PRINT ’"If you choose to 

Play against” 

9308 PRINT "the computer you ha 
ve @& choice” 

S19 PRINT "of three levels of d 
ifficulty of" 

9328 PRINT "which level three is 
hardest.” 

9330 PRINT ’#@3; "Press any key to 
eoantinue"; FLASH 15 "_"5 

9349 PAUSE @ 

9345 IF INKEYS<>"" THEN GO TO 9? 
345 

9358 PRINT #92 

9369 PRINT "When it is your turn 
you can get” 

9378 PRINT "help from the comput 
eri type ’h’" 

9389 PRINT “and the computer wil 
1 recommend” 

9398 PRINT "a move. This option 


is available” 


S4eg 
ing 
P4isg 
two 
F426 
can 
P4sg 


PRINT "even when not play 
against" 

PRINT "the computer. When 
people" 

PRINT "are playing the game 
be made” 

PRINT "faster by removing ” 


GO SUB 529’" 


P4Ads 
ver 
F458 


PRINT "from line 398. Howe 


you will” 


PRINT "not receive any mean 


ingful help” 


F465 


PRINT "if you type ’h’.” 


9479 PRINT 7??? 

F489 PRINT #63; "Press any key to 
Play"§ FLASH 15"_"$ 

P4998 PAUSE 6 

PAPER 4: CLS : RETURN 


eseg 


VIRUS 


JOHN WALKER 
Oniginal program by Allan and Sue Vining 


GENERAL DESCRIPTION 


The object of this game is to show the user how to write real time 
ames on the Spectrum. 


Int 
your 


his game the object is to trap the virus, shownasa '‘V’, using 
intibody, shown as an ‘A’, by forcing the virus into a position 


Where it cannot move without either running into a wall, its own 
frail or your trail. 


Lines 


DETAILED DESCRIPTION 


1220-1240 Get keyboard input, validate it and move the 
antibody in the appropriate direction. Check whether or 
not the antibody crashes into a wall or a virus. 

1250-1268 Is the virus completely trapped? 

1270-1295 Is the virus’s present direction of travel 
blocked? If so, change the direction of travel to one 
which is not blocked. 

1300-1310 Move the virus. 

1320 If at least one virus is still not trapped then repeat the 
main program loop. 

1330-1360 All destroyed so print congratulatory message, 
increase the number of virus by one and if it is less than 
six, go through the game again. Ifit is six, the game is over 
so stop. 

1370 You have crashed, so print message and stop. 
2000-3500 Display instructions. 

4000-4200 Set up virus x, y co-ordinates and direction, and 
antibody x,y co-ordinates. 

4300-4600 Print out the board and initial positions of the 
virus and antibody. 

5000-6000 Sets up user-defined characters. 


4] 


1968 RANDOMIZE ©: DIM a(1@,3): LE 

T n=1 

1126 GO SUB S96¢ 

1148 GO SUB 29998 

1168 GO SUB 4199 

1226 LET aS=INKEYS$: IF CHR®S COD 

E aé$i"5" OR CHR CODE a%$>"8" THE 

N LET AS=L% 

1225 LET L®=AsS 

12390 LET dx=(as="8")-(Case"S")s b 

ET dy=(as="6")-(as="7") 

i235 IF SCREENS (aytdy,axtdx)<>" 
" THEN GO TO 1379 

1248 LET ax=axtdx: LET ay=aytdy: 
PRINT INVERSE 153 INK 75AT ay,a 

xe" A" 

1258 FOR i=1 TO n: IF ali,3)=8 T 

HEN GO TO 13196 

1268 IF SCREENS (ati,1l)+l,ali,2) 
}=" " THEN GO TO 1L2?7¢ 

12462 IF SCREENS (acti,l)-Lt,ati,2) 
}="" " THEN GO TO 12798 

1264 IF SCREENS (ali, 1l),ali,2) +1 
}=""" THEN GO TO 1279 

1266 IF SCREENS (ali,1l),ati,2)-i 
»)=" " THEN GO TO L2rg 

1268 LET a(i,3)=8: GO TO 13196 
1276 IF RND>.Y THEN GO TO 1299+ 

S¥(RND?.5) 

1289 LET dx=Cali,F)=1)-(ali,3)=3 
2 LET dy=(ali,3)=2)-(ali,3)=4)5 
IF SCREENS (ati, li)t+dy,ati,2)+dx 
=" " THEN GO TO 1388 

1285 IF RND?>.5 THEN GO TO 1295 
12°98 LET ali,S3i=ali,S)+l-4klatli, 
3)=4): GO TO 12698 

1295 LET ali,3i=ali,3)-1+4klati, 
3)=1): GO TO 128¢ 

13G@ LET ati, li=ati,li)t+dy: LET a 
(i,2)=a(i,2)+dxi PRINT AT atli,1) 
saCis2)3 INK 63 "A" 

131@ NEXT i 


1380 FOR i=1 TO ni IF ati,3)<>#@ 
1WEN GO TO 1228 

1°83 NEXT i 

1350 CLS : PRINT AT 11,8:3"You ha 
ye destroyed this screen’s"3AT 1 
Py) "worth of virus.” 

$335 FOR P=1 TO 15: BEEP .1,P: N 

BxXT P 

134@ LET n=nt+i: IF néé& THEN PAU 

"he 200: GO TO 1149 

1390 PRINT °°’? TAB 93 "You have won 
al 

1169 FOR P=iS5S To 1 STEP -1: BEEP 
ol,Ps NEXT FP: RUN 

1970 CLS : PRINT AT 11,73 "You ha 

ye cCrashed!"; GO TQ 12368 

POOO REM Virus 

O18 BORDER @: PAPER @: INK 7: ¢ 

40 ©: PRINT AT 2,133 FLASH 1:3 "VIR 

WO"TAT 2,135 OVER 153"_ ” 

8020 PRINT *"You control an anti 

body ""A"" that" 

PO39 PRINT "must trap a virus "" 

Vi", by making” 

2049 PRINT "the virus move into 

® position” 

20998 PRINT “where it has no empt 

¥ Spaces to" 

2068 FRINT "move into. As you e 
liminate” 

2079 PRINT “each screen’s worth 

Of virus, a” 

20898 PRINT "new batch forms for 

you to” 

2092 PRINT "destroy.” 

S089 PRINT *’ "Use the arrows key 

® (5-8) to” 

S198 PRINT "control the movement 
of your” 

$298 PRINT "antibody." 

$306 PRINT °° FLASH 13 "Press any 
key to start.” 


BEEF 1,1 
PAUSE @ 

3 RETURN 
1186 CLS : FOR i=1 TO n: LET ati 
,»1)=14+INT (RND¥20): LET ali,2)=1 
+INT (RND¥3@): LET a(i,3)=1+INT 
(RND¥4)2 NEXT i 
4298 LET ay=11: LET ax=15 
43@@ INVERSE 1: PRINT "SCORE: "jn 
j °XXMXARRKKKKARKRARKKRRKRKKRKN” 
449@ FOR i=i TO 2@: PRINT AT i,@ 
S72" ORT 7, 219°R"s NEXT 4 
4598 PRINT "XXXXXXXKXXXXXKXXKXXX 
KREKMMRERKKK" 2 INVERSE @ 
44680 LET LS=CHR® (53+RND¥3): PRI 
NT INVERSE 13 INK 73AT ay,axi"A 
“: FOR i=1 TO ni PRINT AT ali,1) 
»a¢i,2)3 INK 63“A": RETURN 
5968 FOR i=@ TO 7: READ a: POKE 
USR "“a"+ti,a: NEXT i: RETURN 
68GS DATA 165,646,409, 90,799,698, 46, 


145 


LEON GOODFRIEND 
Original program by C. Ward 


| 


GENERAL DESCRIPTION 

"ils program recreates the orbits of the four inner planets of our 
solar system. You can observe Mercury (M), Venus, the Earth, 
sic Mars happily circling the Sun. Their speeds and orbital radii 
lave been scaled down so that they do not wander off the edges of 
your 'T'V screen. 

NO'TE:- For ease of programming the planets follow circular 
jalher than their true elliptical orbits. 


DETAILED DESCRIPTION 


[iies 10-50 Set initial colours and display instructions. 
60-70 Set up the user-defined character. 
80-150 Store the data for each planet in arrays. 
160-200 Work out the new position for each planet in turn. 
210-270 Display the four planets and the Sun, then loop back 
to determine their new positions. 


45 


i@ INK 46: PAPER @: FLASH @: BRIGHT 1: 
INVERSE @: BORDER @: CLS 

28 PRINT °’’’? "This program shows the 
relative” 

38 PRINT *"positions of the four inner 
most” 

48 PRINT °"planets of our Solar System 
and” 

59 PRINT ’"the Sun." PAUSE 209 

68 FOR a=@ TO 7: READ b: POKE USR "a"+ 
a,b: NEXT a 

78 DATA 466,124,255, 255,255, 255, 126,49 

68 DIM t(4): DIM d(4):s DIM r(4):s DIN p 
(4,2): DIM c(4)i DIM n$(4,5): DIM 1(4) 

f@ FOR a=1 TO 4 

169 READ t(a),d ta), r(a)d,cta),as: LET n& 
(al=at: LET lia} =LEN as 

11M NEXT a 

128 DATA 327.75626,9.5249327,29,2, "Mars 

i3@ DATA @,8.98561,13.189432,1, "Earth" 

1498 DATA -256.47927,1.6921291,9. 53390396 
37, "Venus” 

15@ DATA -135.14322,4.6723597,5.1913216 
; 6,4" 

169 FOR a=1 TO 4 

178 LET p(a,1)=38+S5SIN (tla) /1SOxPIT) ¥r la 


LET pla, 2)=268+COS (tla) /1BGeXPI) ¥rla 


i 
D 
13) 


LET t(ab=t(a)-d(a) 
NEXT a 

CLS 

PRINT AT 18,153 "*%Sun" 

FOR a=1 TO 4 

PRINT INK c(a)3 OVER 13AT p(a,2)/2 
(a,1)/23"a"s} INK 63n%(a, TO 1(a)) 


Lob) em & 
Sb 


ts 
a 


JT th hh) bh 


.6,28 
27G GO TO 1468 


| TARGET PRACTICE 


J. BINNINGTON 
Original program by Gordon Mills 


GENERAL DESCRIPTION 


‘ile game consists of one or two players trying to destroy the 
hii ets on the screen by firing a missile from a constantly moving 


MiSsile launcher at the bottom of the screen. Each player has 
ii®en shots and his score is displayed at the bottom of the screen 
asthe game progresses. The game will provide atest ofeye-hand 
Ordination and, with its nine levels of difficulty, will not be easily 
iiAstered. 

DETAILED DESCRIPTION 


i ifies20 Set up array which contains positions of targets and 
the number of shots each player has. 
30-50 Print initial screen picture. 
60-110 Print the instructions. 
120-255 Input both players’ names and the speed of the 
missile base for each player. 
260-370 Fill the array A with the positions on the screen of 
ten targets in random positions for each player. 
380-500 Print the border between the two players’ sectors 
and the line at the bottom of the screen. 
510-535 Set score to 0 and call the subroutine to set up the 
missile’s shape in the user-defined graphics. 
540 Main program loop is repeated a maximum of 150 
times. 
545 If both players have fired all their missiles then go to 
the ‘game over’ routine. 
550 If player 1 has fired all his missiles then skip to 
player 2. 
560 Set y co-ordinate of missile launcher. 
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570-580 Print missile launcher at each position in player 1's 
sector. 

590 Waiting loop whose length depends on the speed 
chosen by player 1. 


Player on the LEFT uses the lett 
») TA’ the player on the RIGH 
f Ses the letter ’L’ as” 

190 PRINT " fire buttons. " 


600 Delete the missile launcher from its present position 110 INK 6: PRINT : PRINT " The 

on the screen. Sheed of the missile laun 

610-616 See if player | has fired. ther may be varied between fast 

620 Call fire missile subroutine. fi) to slow(?)." 

630 Reduce number of missiles left, check to see if all LPO REM HHH KKH KKK HH HK HHH KKH HK 

targets have been destroyed, if so give bonus score. . 

640-660 Increase score, print score, continue moving 100 REM Get some details. 

missile launcher. LV REM XK HK KKH HHH KH KKH HK 

700-820 Repeat lines 550-660 for player 2. , 

830-890 Game is over, so ask if the players want to play Bee PAUSE — 

again, and if so RUN the program again. eee oe a “i OF &h 
; ie ; ; 

1000-1070 Print the missile as it moves up the screen. Mie te LEN Netie THEN LET Ne=N 

1080 If the missile has missed, then return from the Hil To 19) 

subroutine. {70 PRINT : PRINT : PRINT " 

1085 Calculate the score and BEEP. V{CHRS 18+CHR® 13"Hi "SNBEE FLA 

1090 Delete the target from the array A and RETURN. eH e@ 

2000-2050 Set up the shape of the missile in the user- 19M INPUT "Enter the name of th 

defined graphics. ® Sé@cond Player "3Ms 


198 IF LEN M$>18 THEN LET MS=M 
®(l To 18) 

19% PRINT : PRINT : PRINT " 

"SCHRS 1L8+CHRS 13 "Hi "S§MBi2 FL 

ASH 2 

YOO INPUT "Enter speed(i-?) ple 
pee "+NS+" "SAS 

YOS IF CODE AS¥<49? OR CODE AS#>55 
OR LEN AS>1 THEN : BEEP .2,98: G 
0 10 2a8 

Y1@ LET A=CODE As-48 

P20 PRINT AT L7, 153 "Speed "5A 
O38 INPUT "Enter speed(1-?) ple 
fee "+Mb+" "FBS 

835 IF COBE BS<4? OR CODE B#>58s 
OR LEN BS>1 THEN BEEP .5,9: GO 
TO 238 

'48 LET B=VAL BS 

S89 PRINT AT 19,153 "Speed "5B 


Y REM Conversion of a Gordon 
Mills program by 
I.5.Binnington(i?33). 
28 DIM A(3S1L): LET SN=15: LET $ 


38 PAPER 2: INK 4: BORDER 9 
4@ PRINT AT 11,83 "TARGET PRACT 
ICE" 

58 PAUSE 289 

48 CLS 

7a@ PRINT : PRINT " This is ag 

ame for two players.” 

SS PRINT : PRINT " The object 
of the game is to destroy as 
Many TARGETS as you can wi 

th your i5 shots.” 

‘99 PRINT : INK 4: PRINT ” The 


250 
268 
278 
sfor 
232 
299 CLS 
2°53 FOR 
NEXT I 
FOR L=1 TO 198 
LET M=1+INT (RND*¥14) 

IF A(M)<>@ THEN GO TO 319 
LET I=INT (RND¥1i@) +1 

LET A(iM)=I: LET AC(M+17)=I 
PRINT AT I,Ms3"#" 
PRINT AT I,M+i75"%" 
372 NEXT L 
FEM HH KKK KKK KKK EKER EKER 
299 REM Print the bordertthe sc 
ore line 

AGE REM KEKKKKEKKEKEKEKEK EKER EE 
4i@ LET Y=25: LET NS=@: LET MS= 
@: LET NH=@: LET MH=9 
429 FOR x=e¢ TO 
43@ PLOT &R,Y: 
446 NEXT & 
450 LET X=12? 
440 FOR Y=@ Ta 175 
478 PLOT KY 

488 NEXT Y¥ 
496 PRINT AT 19,13N8: PRINT AT 
1,i:"SCORE "SAT 21,115N5S 
5S@@ PRINT AT 197,18 iMs: PRINT AT 
21,18; "SCORE "SAT 21,273M5 
510 REM KKK KKEK KK KEKE EKER EER RE 
52q@ REM Game proper starts here 
EES REM KKKKKKKK KHER KEKERHEEKEE 
SZz5 LET Sc=@: GQ SUB 28909 
TO 158 
AND SM<1 THEN 


o9 
oo 


THEN 


PAUSE 299 
REM KEKE KKH KEKE RHEE ERE 
REM Set up 1@ random target 
each player 

REM KHEKKKE KHER HKKHKKERRER 


I=i15 TO 17: LET ACI)=-1 


i — —a 
20 


PLOT X,Y+1 


hi 


bh 


LET 


bt 


Go Ta 79e 


50 


NT AT 19,243 


AGaint(¥/N)? 


ayo 
ae 
av 
AoW 
alo 
W ao 


FOR X=1 TO 14 
PRINT AT ¥,X3CHRS 144 
FOR D=1 TO A: NEXT D 
PRINT AT ¥,X3 
LET GS=INKEYS: 
TO 4668 
eid IF GH="4" THEN GO Tao 
fio IF GS<>"a" THEN GO Tao 
o°0 LET R=A: GO SUB igeag 
o°0 LET SN=SN-1i: IF SC<>@ THEN 
LO) NH=NH+1: IF NH=1@ THEN PRI 
WY AT 19,83 "BONUS": LET SC=SC+(S 
HeiOM): LET SN=e 
O10 LET NS=NS+S¢C: 
450 PRINT 
460 NEXT x 
‘OO IF SM<i THEN GO TO 545 
"10 FOR X¥=18 To 31 
720 PRINT AT Y,X#CHRS 144 
‘40 FOR D=1 TO B: NEXT D 
S40 PRINT AT Y,Xi" " 
"SO LET GS=INKEYS: IF G$="" 
" @O To 818 
"SS IF Gs="L" 


IF G$="" THE 


629 


660 


LET sc=¢ 


AT 21,115NS 


THE 


THEN GO TO 779 
"OO IF GS<>"1" THEN GO TO 81g 
’7’® LET R=B: GO SUB iss 

“OO LET SM=SM-1: IF SC<>@ THEN 
LET MH=MH+i: IF MH=i@ THEN PRI 
"BONUS": LET SC=SC+( 
LET SM=¢ 

LET MS=MS+SC: LET Sc=a 
PRINT AT 21,275MS 

MEXT * 

NEXT I 

REM KXKKEHKK HHH KEK KHHHEK 
REM Game over routine 

REM XXXKKEKKKKKKKKHHEKE KR EEE 
INPUT "Do you want to play 
"7 GS 

O70 IF Gs=""" THEN RUN 
O75 IF Gs="4" THEN RUN 
o6@ CLS : FRINT AT 11,19 


1OOKSM) : 
PPR 
Hoe 
O12 
20 
N30 
Hae 
HS2 
069 


3 "GOODB 


"290 FA SHOWJUMPING 
ee@ PAUSE 196: GO TO 88g J 
1LGIGD REM KXKXKKKKHKKKKKKKKKHKHEKEE 


1919 REM Fire subroutine LEON GOODFRIEND 

LBG2A REM KEXKKKKKKHKHKKKKHKHKHKE Original program by Roy Bowden 

i939 LET SC=8: LET YY=¥ 

1g@4@ FOR Y=17 TO A(X) STEP -1 

1958 PRINT AT Y,X#CHR# 144 a ; 

1955 FOR D=1 TG 5S: NEXT D GENERAL DESCRIPTION 

1969 PRINT AT Y,X3" " —_ ee 
ig?@ NEXT ¥ {iin Simulation 1-4 horses and riders compete against the clock 
igeeg@ IF Y=-1 THEN GO TO 19968 4 jump-off. Enter the names of the riders and horses, then each 
1985 LET SC=1@XINT (19-Y/R): BEE © in turn must try to complete the course in as quick a time as 


P .1,-268 


waible, and gaining the least amount of faults. You must guide 
ig@?@ LET A(X)=8: LET Y=YY: RETUR 


N ir iorse around the course, and when you reach a fence a 
29908 FOR U=8 To 7 Moke-up view of it is depicted on the screen. You must now 
2919 READ = icky judge its height and width and enter the appropriate 
2828 POKE USR (CHR® 144)+U,Z tiribe n. If you have judged it correctly your horse will clear the 
2838 NEXT U fi, ifnot, you get four faults. At any time your horse may refuse 
204G DATA 24,24, 24, 24,68,98,219, jump a fence, in which case you get three faults, and musttry to 
21¢ jump the fence again. When all competitors have completed the 
2659 RETURN )lirse the winner is announced. 


DETAILED DESCRIPTION 

a 

Iie 10-29 Print title page and instructions. 
30-80 Set up the user-defined graphics characters. 
90-230 Initialisation and user input for number of 
competitors, their names and horses. 
240-390 Main program loop for each competitor and print 
the course. 
400-465 Start of the competitor's turn. 
490-530 Flash appropriate fence. 
540-690 Draw a close-up view of the fence. 
700-750 User input for fence height and width. 
760-850 Fence is successfully jumped. 
1000-2140 Horse did not clear the fence. 
2200-2250 Horse refused to jump the fence. 
2500-2530 Check for end of round. 
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3000-3040 The horse retired. 

3100-3120 Horse is disqualified. 

3500-3530 Result is displayed. 

3550-4010 Print the details of the best round so far. 
4020-8000 User input for another game. 

9000-9090 Move horse under user control. 
9300-9380 Print the fences. 

9997-9999 Update the clock. 


i@ PAPER 7: INK 1: FLASH @: BR 
IGHT @: OVER @: INVERSE @: BORDE 
R 7: CLS 

28 PRINT AT 1,93 FLASH 15 PAPE 
R 63 "SHOW JUMPING” 

21 PRINT AT 3,195" K"SAT 4,95" 
Movement keys are Z+tX"ZAT 5,193 
u ‘| ” 

22 PRINT AT 7,05 "First guide t 
he horse (signifiedby the jockey 
*s cap) onto the start - the f 
lashing "§ FLASH 15”"S" 

23 PRINT "Then ride over each 
fence in turn. The next fence 
to jump will be flashing.” 

24 PRINT "When you reach a fen 
ce the display shows a clos 


e-up view ofit, with three possi 
ble widths and three heights.” 


25 PRINT : PRINT 
26 PRINT : PRINT "Enter a numb 
er from 1 to 9 as follows...” 
2? PRINT " 
"; PRINT " High Mediu 
m Low ": PRINT ” 
28 PRINT " Wide 9 
"3; PRINT " 
"s; PRINT " Medium 
4 a 
29 PRINT ” 
"; PRINT " Narrow 


“: PRINT " 

80 FOR a=@ TO 39 

40 READ b: POKE USR "a"+ta,b 

80 NEXT a 

60 DATA 9,8,12,18,33,33,255,9 

YO DATA 192,192,255, 192,248,19 
9,199, 248,3,3,255,3,31,227,227,3 
i 

00 DATA 255,255,148, 148,148,198 


®,100,199,199,199,190,148,148,14 


8,285,255 
OO LET vel 
108 RANDOMIZE 
118 INPUT "How many competitors 
(le4) "jp 
IF pti OR p>4 THEN GO TO l 


DIM r$(p,1G): DIM h¥(p,28): 
p(i5,3): DIM j (15,2): DIM Ff 
DIM t(p) 

FOR c=1 TO p 


INPUT ("Competitor "sc" Na 
We 
3 


")gr8(c)’?"Horse’s name hs(c 
168 NEXT c 

178 PRINT °’’?? "Please wait whi 
le the jumps are checked.” 

i8@ FOR j=1 TO 15 

190 READ p(j,1),plj,2),plj,3) 
ZOO LET j(j,1)=FN rt3) 

Zig LET jf (j,2)=FN r (3) 

2208 NEXT j 

232 DATA 2,16,1,2,12,1,2,9,1,2, 
6,1,5,1,2,19,1,2,15,1,2,21,1,2,2 
@©,6,1,16,19,1,12,15,1,16,19,2,22 
»1%,2,26,16,1,26,19,1 

248 FOR c=1 TO p 

2350 CLS 

24@ PRINT ’’?’ "Competitor number 
"tC 


278 PRINT ’r#(c)’’ "Riding "sSh#(c) 


288 PAUSE 1539 
369 GO SUB 9390 
388 PRINT AT 26,25 PAPER 235 INK 


BEEP 1,97 
LET x=19: LET y=8: LET j= 
GO SUB 97896 
IF aS="S" THEN BEEP 1,8: G 
G 469 
439 PRINT AT 19,95 INK @3 PAPER 
7s "You can’t jump any fences un 
til you have been through the st 
art.” 
4468 BEEP 1,16: BEEF 1,5 
459 GO Ta 399d 
448 PRINT AT 28,25" " 
47a LET st=INT FN t() 
48¢ LET j=1 
485 PRINT AT 6,165 "Time: 9" 
496 OVER 1: FLASH 1 
588 PRINT AT plj,2),ptj,1)5" "5 
318 IF p(j,3)=1 THEN PRINT ” ” 
TQ 539 
PRINT AT ptj,2)+1,p(j,1)5" 


FLASH @: OVER @ 
PRINT AT @,223INT FN t()-st 
GO SUB 9988 
IF ATTR (y1,x1)<128 THEN G 
31968 
BEEP .4,12: CLS 
618 PLOT 3+15%j(j,1),19 
628 DRAW 38,9: DRAW 9, 38+2G%j (j 
+2): DRAW -38,8: DRAW @,-39-20%j 
(7,2 
638 PLOT 223-15%¥j(j,1),19 
648 DRAW 38,9: DRAW G,39+20%j (j 
»2): DRAW -38,8: DRAW &,-38-28%j 
(j,2) 
658 FOR a=28%j(j,2)-8 TO 28+20% 
j(j,2) STEP 12 
668 FOR b=@ TO 4 


OPH PLOT 33+15%j(j,1),atb: DRAW 
19H SO*j(j,1),8 

e080 NEXT b 

O90 NEXT a 

7O0 PRINT #93 "Enter number now” 
yes BEEP .1,12 

yi® PAUSE 199 

"20 LET aS=INKEYS 

'i0 IF at="" THEN GO TO 2969 
Wa65 BEEP .1,12 

yaO YF INT ( (FN r(15)+FN er (15)) 
Jie) THEN GO TO 2299 
| 980 IF CODE a$<49 OR CODE a#>57 
THEN GO TO 2889 

Ya LET a=VAL as 

yeO LET w=INT ((a-1)73) 

yoo LET nh=a-3ktw 

POO IF 3-wt>j(j,1) OR h<>j (j,2) 
THEN GO TO 298g 

O00 PAPER 2: CLS 

iO PRINT AT 4,83 FLASH 13 "Fenc 
® @©leared.” 

O20 BEEP .4,5: BEEP .4,19: BEEP 
4,15 

O30 LET j1=j 

O40 LET j=jtl 

O50 GO TO 2599 

1000 DEF FN r(x)=INT (RND¥x) +1 
000 PAPER 2: INK @: CLS 
YOi® PRINT ’”’? "You did not clear 
the fence.” 
O20 PRINT *"Penalty: 4 faults” 
POSO LET #(cd=F(c) +4 


| $035 LET j1>j 


pO4o LET. j=j+1 


| $0S@ BEEP .25,9: BEEP 1,-5 


Pi®@@ PRINT ’’’"You now have "sf ¢ 
fis" faults.” 

PLi@ PRINT #83; "Do you wish to re 
fire y/n ?"5 

PLLlS LET asS=INKEYS 

120 IF at="y" OR aS="¥" THEN G 


0 TO 3896 

2138 IF aS<>"n" AND aSi>"N" THEN 
GO TO 2115 

2148 GO TO 259868 

2299 PAPER 2: INK @: CLS 

22196 PRINT ’’’ "Your horse just r 

efused." 

2226 PRINT ’"Penalty: 3 faults” 

2225 LET ji=j 

2230 LET f(cd=f (co) +3 

2249 BEEP 1,298 

2258 GO TO 219¢ 

25969 IF j>15 THEN GO TO 3569 

25196 GO SUB 9369 

2526 LET x=p(jil,1)+2: LET y=p(ji 

32) 

2538 GO TQ 499 

3696 PAPER 4: INK 1: CLS 

3@1G PRINT ’???hS(c)’?? "ridden by 

"s$r$(c)’?’TAB 125 "RETIRED" 
3926 LET f(c)=196 


3939 BEEP 1,-18: PAUSE 159 


3848 GO TO 35598 

3196 PAPER 6: INK 1: CLS 

S119 PRINT ’7?7’hS(c)’?’ "ridden by 
"Sr8(c)’* "DISQUALIFIED for jump 

ing the"’ "wrong fence.” 

3i2e GO TO 3826 

350@ PAPER 6: INK 1: CLS 

SSi8 LET t(c)=INT FN t0)-st 

35298 PRINT TAB 125 "RESULT"’’?’7’hS 
(c)77 "ridden by "Er#lc)’?*Flcd5" 

faults in "st(c)i" seconds” 

3538 PAUSE S@: FOR a=1 TO 3: BEE 

P .1,18: PAUSE S38: NEXT a 

3559 CLS 

3568 IF p=1 THEN GO TO 4919 

2578 PRINT *TAB 753 "BEST ROUND SO 
FAR"77 77? 

S560 IF f(c)of(v) THEN GO TO 36 

38 

35°O IF £(c)=f(v) THEN IF t(c)> 


Biv THEN GO TO 363¢ 
Meee LET v=c 


\/Seie IF f(v)=188 THEN PRINT TAB 


| di'"Norone has yet finished": GO 
1H 4eo9 

ed8 PRINT "Horse: “sh#(v) 

HehO PRINT "Rider: “"srs(v) 

O60 PRINT "Faults: "s3(v) 

Q°O PRINT "Time: "st(vis" sec 


9008 FOR a=1 TO 3: BEEP .4,29: N 


00 PAUSE 496 

W810 NEXT c 

ae20 cLs 

90930 PRINT ’’’’"Do you wish to p 
jay again -y/n ?" 

[i040 LET aS=INKEYS 

‘3050 IF at="y" OR aS="Y" THEN R 
uN 

$060 IF a%="n" OR aS="N" THEN 5S 
yor 

48°70 GO TO 4949 

‘ae0e STOP 

‘S000 PRINT AT y,x3"A"S 

00S BEEP .95,-5¢ 

9010 LET atS=INKEYS 

6020 IF at="" THEN GO TO 9919 
OOS@ LET xi=x-(as="z" AND x>d)+ 
ate"«" AND x<3l) 

0040 LET yl=y-(aS="k" AND y>1)+( 
ahem” AND y<29) 

O0SO PRINT AT y,xi" "5 

80460 LET aS=SCREENS (yi,x1) 

0070 IF aS<>" " THEN RETURN 
90G@ LET x=xi: LET y=y1 

9098 GO TO 98998 

9300 PAPER 4: INK @: CLS 

8819 FOR k=1 TO 15 

0320 PRINT AT p(k,2),p(k,1)3 
W350 IF p(k,3)=2 THEN GO TO 936 
o 


934@ PRINT "ac" 

9358 GO TO 9379 

9368 PRINT "D"3AT p(k, 2)+1,p(k,1 
»3"E" 

9378 NEXT k 

9389 RETURN 

9997 DEF FN t()=FN m(FN u(),FN u 
(9/58 


NA LALLY ; Y 


9993S DEF FN ul)=(465536XPEEK 2367 
4+256%PEEK 234673+PEEK 236472) 
?999 DEF FN m(x,y)=(xtyt+ABS (x-y 
M/2 


SF A, owe enna 


bene 


LEON GOODFRIEND 
Original program by Paul Bradshaw 


GENERAL DESCRIPTION 


i role in this game is of a cat guarding a large piece of cheese 
iii hordes of hungry mice. You must prevent the mice from 
bling away at the cheese by intercepting their paths and 
{ching them in your jaws. You gain points for how quickly you 
{oh the mice and when all of the cheese has been nibbled the 
ie is over and a pleasing and colourful display follows. Your 
ore and best score so far are displayed throughout the game. 


DETAILED DESCRIPTION 


Pies 10-220 Initialisation and user instructions. 
230-295 Set up the screen display, draw the cheese and 
mark the boundaries of the screen. 
300-360 Display the cat and the mouse. 
380 Update the score and display the best score. 
400-480 Check and update new position of mouse. 
490 Check to see if all of the cheese has been eaten. 
500 Check to see if the mouse has been caught in the cat's 
jaws. 


61 


510-520 User input to move cat. 


530-610 Update the position of the cat. sail cl 


. 23@ CLS 

8000-8080 Mouse has been captured routine. »4 FOR a=i@ TO 12: PRINT PAPER 63AT a 
9000-9470 Game over display. ,i35" “: NEXT a 

9360-9470 Congratulatory message if new high score "So FOR a=1 TO 198 

achieved. 26@ CIRCLE FN r(48)+188,FN r(16)+74,FN 
9900-9940 Another go? routine. r(2)+1 


2798 NEXT a 
288 LET cc=16: LET sc=0 
298 FOR y=@ TO 21: PRINT INK S3AT y¥,93 


ig INK 7: PAPER 1: FLASH @: BRIGHT @: 


OVER @: INVERSE @: BORDER 9: CLS " "SAT y,305" "$2 NEXT y 
28 PRINT AT 3,133 "CHEESE" 295 FOR x=2 TO 29: PRINT INK @3AT @,x3 
3G PLOT 194,148: DRAW 56,@: DRAW 3,14: "SAT 1,3" "SAT 2O,x5" "SAT Zlyxs" "G3 
DRAW -57,@: DRAW @,-14 NEXT x 


4@ LET hs=9 

59 FOR a=@ TO 15: READ b: POKE USR "a" 
ta,b! NEXT a 

68 DATA 66,126, 66,165,129, 153,231, 24,4 
,2,4,14,55,127,15,38 


308 LET cx=FN r(26)+1: LET cy=FN r (is) + 
1; IF ATTR (cy,cx)<>15 THEN GO TO 38d 
Si@ PRINT AT cy,cxj "a" 

320 LET mx=FN r(28)41: LET my=FN r(18)+ 
{: IF ATTR (my,;mx)<?15 THEN GO TO 3298 


7H PRINT ’’ "The object of the game is 335@ IF ABS (mx-cx)*2+ABS (my-cy)*2<¢? TH 
to" 'N GO TO 326 

8G PRINT "prevent the mice b from reac 349 LET dx=SGN (RND-.5): LET dy=SGN (RN 
hing” h-.5) 


99 PRINT "the cheese in the centre of 
the” 

1i@@ PRINT “screen.” 
11@ PRINT "You control a cat a with the 


358 IF ATTR (mytdy,mxtdx)¢>15 THEN GO 
10 349 

362 PRINT AT my,mxi "bb" 

378 LET md=9 

36@ PRINT AT 96,25 INK 75 PAPER @3 "Score 
> "§scu3 AT B,163 "Best: "Shs 

4908 LET py=mytdy: LET px=mxtdx: LET md= 
mad +t 

419 IF ATTR (py,px)=55 THEN GO TO 449 
420 IF ATTR (py,px-1)=55 THEN LET px=p 
wm] 

438 IF ATTR (py,pxti)=55 THEN LET px=p 
ohh 

449 IF px=2 OR px=29 THEN LET dx=-dx 
450 IF py=2 OR py=19 THEN LET dy=-dy 
468 IF ATTR (py,px)}=55 THEN LET cc=cc- 
\; BEEP .2,35 

478 PRINT AT my,mx3" "SAT py ,px5 "Bb" 

4689 LET mx=px: LET my=py 


128 PRINT "following keys: -" 

i3@ PRINT TAB 465 "A - up Z - down" 
14@ PRINT TAB 63"N - left M - right" 
156 PRINT "Catch a mouse by interceptin 
3" 

169 PRINT "its path when it will run in 
to” 

i176 PRINT "your jaws. The quicker you c 
atch” 

188 PRINT "a mouse the more points you” 
19 PRINT "score. The game ends when al 
1" 

296 PRINT "the cheese is gone.” 

?21i@ PRINT ’"Press any key to play" 
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4°@ IF cc=@8 THEN GO TO 78689 
=68 IF mx=cx THEN IF my=cy THEN GO TO 
agea 
S83 IF md/2=INT (md/2) THEN BEEP .1,38 
GO TO 469 
Sif LET px=cxt+ (INKEYS="m")- CINKEYS="n") 
528 LET py=cy+ (INKEYS="2")- (INKEY$="a") 
338 IF ATTR (py,px)=15 THEN GO TO 549 
S49 LET py=cy: IF ATTR (py,px)=15 THEN 
GO TO 3698 
S59 LET px=cx 
3498 PRINT AT cy,;cxs" "SAT Py,spxi "a" 
378 LET cy=py: LET cx=px 
589 IF mx=cx THEN IF my=cy THEN GO TO 
Baad 
6198 GO TO 489 
7898S DEF FN r(x)=INT (RND¥x) +1 
781g DEF FN m{a,b)=a-BXINT (a/b): REM a 
mod 6b 
Seegeg FOR a=18 TO @ STEP -1 
S18 PRINT AT my,mxj "a" 
Se28 BEEP .2,2%a 
S839 PRINT AT my,mx3 "bb" 
28498 BEEP .2,2%*a-1 
8838 NEXT a 
866e IF md?188 THEN GO TO 328 
68708 LET sc=1@KINT ((sct+45@-2.5%md)/19) 
e9ee8 GO TQ 328 
7988 PRINT AT my,smxs" "SAT Cy,cxs” " 
Gig INK 7: PAPER @: FLASH 1 
F920 PRINT AT 19,135 "GAME"SAT 12,135 "OVE 
Re 
P9389 PLOT 76,6? 
F948 DRAW 48,8: @,16: DRAW -48,9@: 
RAW @,-16 
9858 PLOT 76,84 
7868 DRAW 48,6: DRAW 6,146: DRAW -43,8: 
RAW @,-16 
Sa?7a FOR a=1 TO 75@: NEXT a 
e988 FLASH @: CLS 
OSG PRINT AT 11,193 "Score: 
P19@ PAUSE 1998 


911M IF sct<hs THEN PRINT AT 17,83 "High 
Score: "Shs: GO TO F9g¢ 
V1i28 CLS : FOR a=21 TO 1 STEF -l 
VIS@ PRINT AT a, B53 "ari 
V14@ NEXT a 
VIiS@ FOR a=8 TO 18 STEP 2 
Yl6@® FOR b=a TO Si-a 
Vi70 PRINT AT a, bs "ars 
V1i8@ NEXT b 
9190 FOR b=a TO 2i-a 
V200 PRINT AT b,Sl1l-as "a" 
Y2LO NEXT b 
Y228 FOR b=S3l-a TO at2 STEP 
V23908 PRINT AT 2l-a,bs"a"5 
V240 NEXT b 
V250 FOR b=21-a TO at+2 STEP 
V260 PRINT AT b,at2Z3"a"§ 
92708 NEXT b 
V280 NEXT a 
S@@ FOR a=@ TO 41 
93190 PAPER FN m(a,8): INK FN m(at4,8) 
93208 PRINT OVER 15AT FN m(a,22),83TAB 3 
ae 
9325 BEEP .@4,a 
Y3S30 NEXT a 
9349 POKE 23692,255 
YS50 PAPER 2: INK ? 
¥360 FOR a=1 TO 25: PRINT : NEXT a 
S78 PLOT 47,446: DRAW 155,9,PI/3: DRAW @ 
»75,PI/2: DRAW -155,9,PI/3: DRAW 9,-75,P 
i/3 
9369 LET at="CONGRATULATIONS” 
9399 LET bS="NEW HIGH SCORE!" 
9408 LET at%=attasi LET bS=bS+bs 
Y4i@ INVERSE 1 
V428 FOR a=1 TO 16 
Y438 PRINT AT 19,83; a8(a TO ati4)5AT 12,8 
jb#(a TO at1i4) 
9448 BEEP .4,a%2 
9458 NEXT a 
9469 INVERSE @ 
9478 LET hs=sc 


INPUT "Another game -y/n ? "Sat 
IF aéSio"y" AND aS<>"n" THEN GO TO 


IF a$S="n" THEN STOP 
INK 7: PAPER 1 
GO TO 239 


| GO-MOKU | 


COLLETTE WHITFIELD 
Original program by Jeff Aughton 


GENERAL DESCRIPTION 


' liallenge your computer to the oriental game of Go-Moku. The 
‘ame is played on an 11 x 11 square board and during play you 
Hilisl cover one of these small squares with one of your pieces. 

''he object of the game is to get five adjacent pieces in a row, 
rilher horizontally, vertically or diagonally. Your pieces are 
»oloured cyan and the computer's are yellow. 

Initially the computer takes over three minutes to set up the 
hoard, then youhave the option of going first or not. Youtake turns 
i) place your pieces on the board, with the computer usually 
fuking about ninety seconds to decide its move. You will be 
iilormed when someone has won and a running score is kept. 
he computer plays intelligently, but it is not infallible. 


== 


DETAILED DESCRIPTION 
[ines 1-205 Initial set up. 
210-435 The board has been set up in memory as a table 
and these lines read that table. 
470-545 Call up ‘print board’ routine. 
550-660 Start the game. ; 
670-1070 Print the playing board and get the user's input. 
1250-1430 Invalid input ... try again. 
1450-1880 The computer's turn. 
1730-1880 Evaluate possible moves. 
1890-2000 Display the move on the board. 
2005-2220 Update the table in memory. 
2230-2410 End of game comment. 
2420-2490 Display the winner on the board. 
2540-2670 Running score and another game input. 
2730-2960 Instructions and rules. 
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This program needs a 48K Spectrum 


CLEAR 44868 

LET TABLE=44992 

REM go-moku by J.AUGHTON 
REM adapted for the spectru 


be 
em T hoe 


12 REM by J.K.W @ 1983 
39 GO SUB 119 

49 GO SUB 476 

5@ GO SUB 2579 

6@ IF DONE=@ THEN GO TO 48 


8a STOP 
LEG REM KEKKKKK KEK KERR KH RER EE 
11@ REM ++def procinitialt+ 
126 GO SUB 2758 

i138 READ wl,w2,Ww3,W4,W5,WG 
i4@ DIM W(252): DIM C(121) 
1496 FOR p=@ TO 7: READ ii: 
USR “av"+p,iii NEXT p 

165 GO SUB 249 
17@ LET ATT=wl 
186 LET MWIN=8: 


POKE 


LET YWIN=MWIN: 


LET DRAW=MWIN 

i998 PRINT " press space bar to 
contine": BEEF .5,1 

7OG BEEP .1,1: IF INKEY$S<>" " T 
HEN GO TO 2898 

285 RETURN 


REM HHH K KKK KHER KE KEKE 


@ REM 

1 REM 4444444444 44+44+444¢4¢44444+ 
@ REM defprocreadtable 

@ FOR T=98 TO 2541 

POKE (TABLE+I),@: NEXT I 
LET WIN=1 

FOR I=i TO 4 

READ P1,F2,P3,F4,P5 

FOR J=1 TO P2 

FOR K=i TO ? 

LET X=P1 

326 FOR L=1 TO 5 

LET Y=TABLE+21¥X-22 


p Noho hy 


Gs 


a 


“Q 


im 


aso eo oi 


Gif blob) fo ta 


i 
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140 
570 
102 
V5) 
wile 
AL® 
A222 
Ase 
A35 
hag 
' 
152 
16g 
z 
A772 
A6e 
HOP 
S12 


LET Y=¥+l 
IF PEEK Y<?>@ THEN GO TO 34 


POKE Y,WIN 

LET X=X+P3 

NEXT L 

LET P1=P1+P4 

LET WIN=WINt1 

NEXT K 

LET Pi=P1+P5 

NEXT J: NEXT I 

RETURN 

REM F444 444444444444 ¢44+444+ 


REM 
REM 22222222222222222222222 


GO SUB 538g 

GO SUB 4679 

LET M=1-M 

IF M<>@ THEN GO SUB 1459: 


00 TO S298 


Bil 
529 
538 
Sas 
545 
550 
568 
572 
58a 


YSS= 


GG SUB 95¢ 

IF N>@ THEN GO SUB 1919 

IF M<=1 THEN GO TO 398 

GO SUB 2259 

RETURN 

REM ZZ2Z2222222222222222222 
REM 

REM defprocstart 

LET WIN=252: LET M3S=98: LET 
@: LET ERR=9: LET FIRST=1: 


LET DONE=9 


SPD 
629 
638 
649 
652 
668 
679 
6ee 
699 


LET LB=34: LET UB=8se 
FOR I=1 TO WIN 

LET W(I)=8: NEXT I 
FOR I=1 TO 121 

LET Ci I)=8: NEXT I 
RETURN 

REM 

REM defprocboard 


BORDER 1: PAPER i: CLS 


PRINT AT 1,133 FLASH 15 "GOM 
718 LET mm=9 

728 FOR y=3 TO 13 

738 PRINT AT ¥,93 INK 75 y-2 

7498 FOR x=11 TO 21 

758 PRINT AT y,x3 PAPER 1-mmt3i 


7468 LET mm=i-mm 

789 NEXT x 

7?8 NEXT y 

898 PRINT AT 14,115 "ABCDEFGHIJK 


5 

849 PRINT AT 28,83 INK 75" Do y 
ou want to start? Y/N ” 

878 LET AS=INKEYS 

B71 IF AS<>"Y" AND AS<>"N" AND 
AS<>"n" AND AS<>"y" THEN GO TO 
B78 

B72 PRINT AT 298,65" 


679 IF AgS="" 
ET M=1: RETURN 

895 LET M=8: RETURN 

99a REM 

91g REM 

958 PRINT AT 28,903; "LETTER 
949 INPUT as 
9461 IF aS<"A" OR aS>"K" THEN G 
0 TO 968 

978 LET Y=CODE (AS) -64 

$898 PRINT AT 28,9; "NUMBER " 

7381 INPUT as 

982 IF CODE a%>S? OR CODE as=9 
THEN GO TO 981 

983 LET X=INT VAL as 

985 IF X<1 OR *>11 THEN GO TO 
Psi 

19498 GO SUB 2999 

i@S@ IF N=@ THEN GO SUB 1279 
ig6@ IF N=8 THEN GO TO 959 


OR AS="y" THEN L 
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1970 RETURN 

izS2@ REM 

{268 REM defprocabuse 

1270 LET ERR=ERR+1 

1260 GO SUB 1329+ (ERR-1)*29 
1290 BEEP 2,ERR 

1295 PRINT AT 28,45" 


1308 RETURN 

(32@ PRINT AT 29,85 "You can’t do 
play there!" 

(3925 RETURN 

1349 PRINT AT 26,93 "That square 
je taken!" RETURN 

(368 PRINT AT 28,85 "That’s your 
IHIRD mistake think! "s RETURN 
{389 PRINT AT 268,943 "WRONG AGAIN. 
OU LOSE A TURN !* 

14398 LET N=-1: LET ERR=98: RETURN 


145@ PRINT AT 26,985"LET ME THINK 


ou 
eeeae 


14798 IF FIRST<>@ THEN GO SUB 15 
@; GO TO 148g 

1475 GO SUB 143¢ 

1480 PRINT AT 26,93; "I WILL PLAY 
"S$CHRS (644+Y)5" "5X 

IS@@ PAUSE 12¢ 

1510 RETURN 

1539 REM DEFPROCGUESS 

184@ LET FIRST=¢ 

1860 LET X=INT (44+RND¥5S): LET Y= 
INT (4+RND¥€5) 

1578 GO SUB 2999 

1588@ IF N=@ THEN GO TO 1569 
1599 PAUSE 129 

1698 RETURN 

1628 REM DEFPROCTHINK 

1638 IF M3S<=Y3S AND Y3S>1 THEN 
LET DEF=w2: GO TO 16496 

1635 LET DEF=w3 

1464@ IF RNDX¥1<.9 THEN LET Pl=w4 


Go 
1645 
1658 
1649 
1478 
163d 
1699 
17989 
17198 
17298 
LS: 
1749 
1Ps9 
TABLE 
1772S 
1739 
17998 

To l 
1is8se 
181¢ 
+1 
18268 


TO 1459 

LET Pi=ws 

LET v=-9999 

FOR I=LB TO UB 

IF C(I})=@ THEN GO SUB 1759 
NEXT I 

LET N=K: LET K=K+19 

LET X=1+(K-INT (K/11)#11) 
LET Y=INT (K/11) 

RETURN 

REM 

REM PROCEVAL 

LET T=@: LET TWOS=@: LET L= 
+21%I-21 

LET Z=W(PEEK (L)) 

IF Z2=9 THEN GO TO 1849 

IF 2=4 THEN LET T=9999: GO 
348 

IF LET T=999 

IF LET TWOS=TWOS 


IF 2¢@8 THEN LET @=DEF: GO 


TG 1839 


1321 
1839 
1849 
1852 
7a 
136¢ 
1878 
=I 
1ss¢ 
1899 
1ifgEe 
191¢ 
St+M-1 
igil 
EXT I 
1?8e 
G+M-1 
199g 
28388 


LET Q=ATT 

LET T=T+Q¥(2+1)-P1%#(2Z=3) 
LET L=L+1 

IF PEEK Lé>@ THEN GO TO 1? 


IF TWOS>4 THEN LET T=T+wé 
IF T?V THEN LET V=T: LET K 


RETURN 

REM 

REM defprocplay 

PRINT AT X4+3-1,Y¥+11-15 INK 
3 FLASH 15" "5 


FOR I=1 TO 18: BEEP .1,2: N 


PRINT AT X+3-1,¥+11-15 INK 
5 FLASH @3 "A"; 

GQ SUB 2829 

RETURN 


“O16 REM DEFPROCUDATE 

2026 LET P=2*%M-1: LET C(N)=P 
2048 LET K=TABLE+21¥N-21 

2056 LET G=PEEK K 

20768 LET V=W(@) 

2066 IF V=9 THEN GO TO 2159 
209@ IF VEP<@ THEN LET W(@)=9: 
LET WIN=WIN-1: GO TO 21989 

2095 LET W(@Q)=V+P 

219@ IF V=-3 THEN LET Y3S=Y35-1 
211@ IF V=3 THEN LET M3S=M3S-1 
2120 IF V=-2 AND P<@ THEN LET Y 
SS=Y3S+1 

2136 IF V=2 AND P>@ THEN LET MS 
GeM3S+1 

2148 IF ABS (W(@))=5 THEN LET M 
@INT ((P4+5)/2): LET WIN=8 

215@ LET K=K+1: LET @=PEEK K 
2166 IF @<>@ THEN GO TO 2979 
21708 IF WIN=8 THEN LET M=4 

218@ LET N=N-23 

219@ IF N>@ AND NCLB THEN LET L 
Ben 

2208 LET N=N+46 

2219 IF N<i22 AND N>UB THEN LET 


2226 RETURN 

2249 REM DEFPROCCOMMENTS 

225@ IF M<4 THEN GO SUB 2449 
2255 CLS 

2256 LET As="" 

22668 GQ SUB 2316+ (M-2) #29 

2276 PRINT AT T,93 4% 

2288 PAUSE 129 

2298 RETURN 

23198 LET YWIN=YWIN+1: LET AS="YO 
U WIN!!!" 

2326 LET BS="WELL DONE!” 

2325 LET T=5: RETURN 

23368 LET MWIN=MWIN+1: LET As="I’ 
ve won!!!" 

2335 LET BS="I Really enjoyed th 


atii" 

2349 LET T=4: RETURN 

23598 LET DRAW=DRAW+1: LET AS="It 

’"s a draw! !" 

23868 LET BS="No won could have w 

on that!" 

2419 LET T=3: RETURN 

2438 REM DEFROCSHOWIN 

24406 PRINT AT X+3-1,Y+11-15 FLAS 

H L3"W"S 

2468 FOR I=1 TO 5: BEEP 1,1: NEX 

Tf 

24998 RETURN 

2549 REM 

2549 REM DEFPROCGOVER 

25°70 PRINT BS 

2528 PRINT "THE SCORE SO FAR” 

5°¢9 PRINT "YOU ="5 WIN 

6488 PRINT "ME =" MWIN 

619@ PRINT. "DRAWN ="3; DRAW 

2438 PRINT "Bo you want to play 

again F Y/N” 

2646 LET AS=INKEYS 

2645 IF AS<>"N" AND ASK >"Y" THEN 
GO TQ 2649 

24668 IF AS="N" THEN LET DONE=1 

2678 RETURN 

2P4g REM DEFPROCRULES 

27508 BORDER @: INK 7: PAPER @: C 

LS 

2755 PRINT AT 1,193 "Gomoku": PRI 

NT 

2768 PRINT "This game is similar 
to noughts-” 

2776 PRINT “and-crosses,the obje 

ct being to” 

2789 PRINT "create FIVE OR MORE 

pieces” 

27°98 PRINT “either horizontally, 

vertically " 

2889. PRINT “or diagonally." 

2810 PRINT "My pieces are "3 INK 


? 
2 
2 
2 
“ 


6; "VELLOW"5 INK 73" and yours” 
2020 PRINT "are "3 INK 53 "CYAN"; 
INK 7 
2036 PRINT 
#042 PRINT "Best of luck, because 
youll need it." 


2058 PRINT : PRINT "PLEASE GIVE 
ME THREE MINUTES TO Ss 
ET ups 

2°48 RETURN 

2°98 LET N=11¥Y-11+xX 

SOG IF C(N)<>8 THEN LET N=@ 
SJO19 RETURN 

SOS8 DATA 16,-61,-28,229,55,135 
S068 DATA 16,56,124,124,124,124, 
86,16 

3078 DATA 1,11,1,1,4,1,11,11, 11, 
“7G9157,12,1,4,5,7,19,1,4 


15 


SS 


BATTLESH 


ANDREW CRESSWELL 
Original program by J. Edyvane 


GENERAL DESCRIPTION 


The object of Battleships is to sink the computer's fleet before 1! 
sinks yours. First you must place your six ships on the grid. To do 
this follow the prompts and enter the grid references: letter, 
number then (ENTER). Each ship must form a horizontal, vertical 
or diagonal line. You will see your fleet appearing on the left-hand 
grid as you input this information. 

You must now attempt to locate and sink the computer's entire 
fleet by firing three shell salvos at the right-hand grid. Again typo 
a letter, followed by anumber, followed by (ENTER). The result of 
your action will be displayed graphically on the computer's grid, 
and in words under your grid. Nowitis the computer s tum to fire 
at your grid. 

The game continues in this fashion until either of the fleets is 
totally destroyed, and the winner is announced. 


DETAILED DESCRIPTION 


Lines 20-80 Initialise and read data for ship types. 
160-190 Player's input and validation. 
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200-275 Work out where to fire the computer's three-shell 
salvo. 

300-890 Main program which first draws the two grids then 
sets up the computer's ships and asks the player to do 
likewise. 

670-890 Fire routine and resultant actions. 

900-999 This routine is called when your shot misses. 
1000-9992 Sets up the user-defined characters. 


_ 


REM EKEKKEEK EKER EKEKKEKHEEKEE 
REM #k#*XX¥* Battleships #X¥X#* 
REM ##*+# and KEKKE 
REM #X*¥X% Cruisers KKK 
REM KXKKHKKKHEKER KEK EEE HEHEHE 
REM Original ZXG1 program 
REM By J.C. Edyvane 
REM KREKEKKKKEKKEKEKEKKKHEKE 
REM Spectrum conversion 
REM by A. Cresswell 
REM EXKEKKEKKKEKKHEKKRKEEHE KEE 
GO SUB lgs¢a 
REM initialise 
BORDER 1: PAPER 3: CLS : INK 7? 
POKE 234658,8: POKE 23499,59 
LET h=@: LET i=@: LET j= 
DIM a(2,16,198): DIM n(2,46): DIM n#( 
éAil) 
6@ RANDOMIZE 
65 RESTORE 768: FOR i=1 TO 6: READ x: 
LET n@®Cil=x$2 NEXT i 
78 DATA "Battleship", "Cruiser", "Destro 
yer 1", "Destroyer 2", "Submarine 1", "Subm 
arine 2" 
75 FOR s=1 TO 2: RESTORE 77: FOR i=1 T 
© 6: READ x: LET n(s,id=x:i NEXT it NEXT 
n 


aad ht 


FaAOGKQvoanuns 


77 DATA 3,4,3,;3;252 

B@ GQ TO 386¢ 

160 REM get player’s input 

165 INPUT aS: IF as="" THEN GO TO 165 
178 LET x=(CODE a$(1))-64: IF x>32 AND 


x<43 THEN LET x=x-32 410 LET d=INT (RND¥3)-1: LET u=INT (RND 
175 IF «<1 OR x>1M THEN GO TO 165 Wo)-1: IF d=@ AND u=@ THEN GO To 414 
188 LET at=a$(2 TO ): IF CODE a%<4S OR 420 LET p=INT (RND¥1@)+1: LET g=INT (RN 
CODE a®>S? THEN GO TO 1465 PHLO) +1 
185 LET y=INT (VAL a®)+1:i IF y<l OR yol 490 LET m=n(1,s)-1: LET tl=p+d¥m: LET t 
® THEN GO TO 145 Peqtuxm 
187 IF at2,x,y¥)*¢@8 THEN GO TO 1645 440 IF t1>1@ OR ti<i OR t2>19 OR t2¢1 T 
RETURN WEN GO TO 419 
7 REM computer’s fire routine 480 FOR 1=8 TO m: IF a(2,pt+td¥1,qtuk¥l)<> 
IF hi>@ AND j<>@ THEN GO TO 222 © THEN GO TO 419 
IF h<>@ THEN GO TO 239 460 NEXT 1 
21@ LET x=INT (RND¥1@)+1: LET y=INT (RN 490 FOR 1=@ TO m: LET a(2,pt+td¥1,qtu¥1l)= 
D¥1G)+1: IF ati,x,y)<@ THEN GO TO 219 ei NEXT 1 
2204 RETURN 50@ NEXT s 


p=h: LET g=i §5@ PRINT AT 15,23 "Enter your ships now 
d=-1 TO i: FOR w=-1 TO 1: LET x 0 


; 
x{1 OR x>1@ THEN GO TO 243 S7@ FOR s=1 TO 4: PRINT AT 17,25n%(s) 
yed+q: IF ¥<1 OR y>ig@ THEN GO 590 FOR 1=1 TO n(2,5): PRINT AT 19,23"S 
fiere "S15 GO SUB 169 
IF a(i,x,y)<@ THEN GO TO 263 OPS IF a(i,x,y)<>@ THEN GO SUB 169: GO 
RETURN TO 595 
NEXT u 608 LET ali,x,y)=s: PRINT AT 13-y,x+25n 
NEXT d ®(e,1): NEXT 1: NEXT s 
LET p=hi: LET q=il: GO TO 239 630 PRINT AT 15,2; PAPER 53" 
GO TO 21¢ " 
ner main program 649 PRINT AT 17,25 PAPER 53" 
PAFER 7: INK @ i | 
PRINT PAPER 5:" "; PAPER 73" Your 652 PRINT AT PAPER 53” 
fleet "3; PAPER 55" "; PAPER 73 "Enemy " 
fleet ": PRINT 660 LET k=2 
Zig LET bS=" ABCDEFGHIJ ": PRINT PAPER 670 IF k=1 THEN PRINT AT 15,23 "My go 
53" "3; PAPER 73b%; PAPER 53" "5 PAP : 
ER 73bs IF k=2 THEN PRINT AT 15,23"Your go 
328 FOR s=3 TO 12: RESTORE 339: FOR i=1 
TO 4: READ x: PRINT AT s,x5 INVERSE 15C FOR g=1 TO 3 
HRS (68-s): NEXT i: NEXT s FOR s=1 TO 2@: 
338 DATA 2,13,13,29 PRINT AT 17,23 
34@ PRINT PAPER 53" "3 PAPER 73b%3 PA 4 
PER 53" "; PAPER 73b$: PRINT AT 15,25 . PRINT AT 16,23 
IN®*) 253 FLASH 15 "I am positioning my fle IF k=1 THEN GO SUB 
et". IF k=2 THEN GO SUB 
499 FOR s=1 TO 6 | 98 LET z=atk,x,y)s LET atk,yx,y)=-1: IF 


z=8 THEN GO TO 9798 

768 PRINT AT L3-y,x+(k¥16)-145 FLASH 13 
PAPER 23 INK 635 "b" 

778 PRINT AT 17,25 "BANG"; PAPER 55" 


": BEEP 1,1 
78@ IF k=1 THEN IF h=@ THEN LET hi=x: 
LET il=y 
785 IF k=1 THEN LET h=x: LET i=y: LET 
jel 


798 LET ntk,z)=n(k,z)-1 

SG@ IF n(k,z)<>@ THEN GO TO 875 

885 PRINT AT 17,23n8(z)3" sunk" 

619 IF k=1 THEN LET h=@ 

815 FOR s=1 TO 50: NEXT 5s 

820 FOR s=1 TO 6: IF n(k,s)>@ THEN GO 
TO 875 

@25 NEXT s 

S38 IF k=2 THEN PRINT AT 19,23 INK 63 
PAPER 23; FLASH 13"You "3 

835 IF k=1 THEN PRINT AT 19,23 INK 63 
PAPER 23 FLASH 13" I "3 

849 PRINT INK 63 PAPER 23 FLASH 15 "win 
859 FOR k=1 TO 2: FOR x=1 TO 19: FOR y= 
1 To 19 

655 IF a(k,x,;y)=@ THEN PRINT AT 13-y,x 
+(k¥16)-143 "a": BEEP .1,1 

@6@ IF atk,x,y)>@ THEN PRINT AT 13-y,x 
+(k¥16)-143 FLASH 13 PAPER 23 INK 63"b": 
BEEP 1,1 


8465 NEXT yy: NEXT xi NEXT k 

srs GO TO ?9eg 

875 IF k=1 THEN PAUSE 598 

638 NEXT g 

B98 LET k=1L+ABS (k-2): GO TO 4679 


aq REM misfire routine 

OS PRINT AT la-y,xt+(k¥16)-1435 "a": BEEP 
»i,d 

Sig PRINT AT 17,25 "SPLASH"; PAPER 35” 
915 IF k=1 THEN LET j=8 

S29 GO TO $P5 
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299 GO TO F99¢8 

(we REM sets up graphic char 

Iwi RESTORE i926: FOR n=USR "a" TO USR 
"Db"4+?: READ nn: POKE nanni NEXT ni RETURN 
1W29 DATA 85,178,85,179,85,179,85,17¢ 
WSO DATA 153,989,990, 255,255, 99,990,153 
¥79O9 PRINT AT 21,85" Press any key for 
another go "” 

PPL IF INKEY$="" THEN GO TQ 9991 


Ye92 GO TO 26 


DUCKSHOOT 


JEREMY HANNETT 
Original program by B. Philips 


GENERAL DESCRIPTION 


Armed with your double-barrelled shotgun and with your trusty 
gundog by your side you stomp through the marshland, trying tu 
shoot down as many ducks as youcan. The ducks will not fly whe 
the sun is out, so you can gain extra points by shooting at thal 
Bonus points are gained with every five ducks shot, as they ain 
taken to market. The duck shooting season is very short, so yeu 
must shoot quickly. Your score and the time remaining atu 
displayed at the top of the screen. 


DETAILED DESCRIPTION 


Lines 1-50 Title page is displayed and the user-defined graphie: 
subroutine is called. 
90-130 Print marshland and either duck or sun. 
200-500 Main program loop. 
600-610 Duck escaped. 
620-730 Duck hit and retrieved by the dog. 
800-840 Display the shot. 
850-900 Hit something. 
2000-2035 Print and move the hunter. 
2100-2110 Fire at target. 
6000-6060 Print score and ask for another go. 
8000-8220 Instructions. 
9000-9020 Set up the user-defined graphics characters. 
9100-9130 Set time and read the clock. 
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1 FEM *#% Duck shoot 
2 FAPER ¥: BORDER 7 
§ CLS : FOR n=? TO 8 STEP -1: PRINT 


INK ns INVERSE 15" DUCK - SHAQ 
i TT "; NEXT hr 
6 FOR n=8 TO 7: PRINT INK ns INVERSE 
5” DUCK - SBHOUAT. "rN 
eT on 


9 LET es=" 
{1@ PREINT AT 21,@3 FLASH 135 "Bo you want 
instructions ? (Y¥/N)” 
206 LET aS=INKEYS: IF at$="" THEN GO TO 
20 
30 LF ak="y" GR at="Y" THEN GO SUB 89 
pe 
49 GO SUB een 
58 GO SUB iss 
99 PAPER 3S: BORDER 1 
ig@@ CLS : PRINT AT 19,85 INK 45 "aaaaaaa 
Py iy: ¥-¥-¥-¥-0-t-t--e-t-t-0-0-t-0-0-0-0-0-0-t- lege ie ]e]eleleleleielaieied els) 
bbbbbbbbbbbbbbbbbcccccceeccccececcecceecece 
tccecccec”’s 
{@S LET ss=@8: LET ducks=@: LET shotx=8: 
LET shoty=@: LET sun=8: LET escaped=: 
LET score=f 
{i@ LET position=1: LET char=1: GO SUB 
2008 
1@@ LET ducky=INT (RND¥15) +2: LET duckx 
wi 
13@ IF RND>.8 THEN LET sun=1: LET sunx 
eINT (RNDX¥249)+5:5 LET suny=INT (RNDX19@) 
*4@: FOR n=1 TO 5S: CIRCLE OVER 13 INK 6 
fGunx,s5uny,ns NEXT hn 
206 REM #** Main loop 
Pi GO SUB FilS: PRINT AT 9,983 INVERSE 
{;e#s AT @G,S'"Time Left ="SINT (398-time) 
(AT 8,143" Secs. Score ="5Score 
228 IF time>r=2F9 THEN GO TO 46898 
22a LET a®S=INKEYS: IF asS="4j" THEN LET 
positian=position+i: LET char=2: GO SUB 
eN@C: BEEP .1,8: LET char=3: GO SUB 28989 


2468 IF a$="g" THEN LET position=positi 
on-L: LET char=4: GO SUB 28@@¢: BEEP .1,9 
> LET char=5: GO SUB 288g 

258 IF as="" THEN LET char=1: GO SUB 2 
gag 

268 IF aS="h" THEN GO SUB ?89: LET cha 
r=1: GO SUB 26@8: LET shoty=35: LET shot 
x=(position#8) +7 

265 IF shoty<t?@ THEN GO TO 88g 

266 IF sun=1 THEN GO TO 216 

278 PRINT AT ducky,duckx$3”" no"s: FOR d= 
1 TO 3S: BEEP .81,di NEXT di PRINT AT duc 
ky, duckx+is5 "pq" 

2e@ LET duckx=duckxt+1:i IF duckx>=28 THE 
N PRINT AT ducky,duckx3" "i GO TO é68¢ 

GO TO 21¢ 

REM #¥** Buck escaped. 

LET escaped=escapedt+i: GO TO 129 

REM *##* Killed duck! 

FOR n=25 TO -1@ STEP -S: BEEP .@i,n 
: ATO On 

638 FOR n=ducky TO 168: FRINT AT n,duckx 
3" "3 LET duckx=duckx+l:i IF duckx}=28 T 
HEN LET duckx=9 

648 PRINT AT nti,duckxs INK 25 "pq": BEE 
P .,@5,(1@8-n): NEXT ni 

658 FOR n=8 TO duckx: PRINT AT i?,ns IN 
K 45 "a" INK @3"u":i BEEP .@5,nt+12: PRINT 

AT i9,ntis INK @3"s"i BEEP .@5,ni GO Su 
B 2609: NEXT ni IF duckx=position THEN 
GO TO Yee 

651i IF duckx?position THEN GO TO 478g 

669 FOR n=duckx TO position-i: PRINT AT 

i?,n5 INK 435 "a"; INK Si"s"i BEEP .1,9: 
PRINT AT 19,nt+is INK @3"u"i BEEP .1,9: G 
QO SUB 28969: NEXT ni PRINT AT 17,position 
-is INK 435 "a": GO TO Pee 

678 FOR n=duckx TO position+2 STEP -! 
PRINT AT 1?,n3 INK @3"r"5 INK 43 "ani 

PRINT AT 19,n3 INK @5"t": 
SUB 2888: NEMT ni PRINT AT 19,pa 
INK 43 "a": GO TO 78s 


000 LET score=scoreti: LET shot=@: LET 
Hueks=ducl 

"M1 LET 

2 IF =?5 THEN LET x=x-S: GQ TO 782 
‘OS LET ~x=x-is PRINT AT 21,*¥23 "ml" 

‘18 IF INT (score/S3)=score/S THEN GO 
uh 73¢ 

7208 GO TO 126 

'S@ FOR n=1 TO 5: FOR f=1 TO 1@ STEF 2: 
DEEP .S@2,ntfi PRINT AT 21,19-(n¥2)5 "cc" 
it NEXT £2 NEXT ni LET score=score+is 
748 RETURN 

O08 REM KEK shot on screen 

OOS LET count=2 

O10 GO SUB 8a: LET shoty=shoty+4: PLOT 
Shotx,shoty: BRAW 8,2 

O28 TF POINT tshotx,shotyt+t3)=1 QR POINT 
(ehotx, shoty+4)=1 OF POINT (shotx,shoty 
H)=1 THEN GO TO 858 

OS@ IF shoty>?i5@ THEN GO SUB ?98: LET 
Shoty=8: GO TO 264 

OSS LET count=countt+ii IF count¢s THEN 
GOO TO 318 

849 Gel TO 246 

O5@ REM K¥¥ Hit Something 

869 GO SUB 788: LET shoty=8: IF sun= 98 T 
WEN GO TOG 428 

865 FOR n=5 TO t STEP -1: CIRCLE INVER 
Oe is; INK S3sunx,suny,n: BEEP .@1,nk®S: N 
EXT nn 
O72 LET ss=ssti: LET sun=8: LET score=s 
(Oret25: GO To i2e . 
9O0@ PLOT INVERSE iishotx,shoty: DRAW 
INVERSE 1:3:8,2: RETURN 
VOSS REM *¥¥*¥ Print Hunter 
O91 IF paosition=8 THEN PRINT AT 18,85" 
"SAT 19,85 INK 43 "aaa": LET position= 

0: GO TO 2819 
VOS82 IF position=31 THEN PRINT AT 18,28 
iy "SAT 19,283 INK 43 "aaa": LET positi 
on=1: GQ TO 2818 
9995 PRINT AT 168,position-1;3" 


position-i3; INE 4; 28." 

eeig IF char=i) THEN PRINT AT oi ae 

ny INK @3"d"sAT 1if,positions INK @3"e"s: 

RETURN 

228 IF char=2 THEN PRINT AT 18,positia 
Bp "F"sSAT 1F,poasitions INK @3"g"55 


IF char=3 THEN FRINT AT 18,positio 
@s"F"sAT LF,positions INK BE"A"G: 


IF char=4 THEN PRINT AT 18,positio 

ns INK @F"i"sAT 19,positions INK @)%j"3: 
RETURN 

THEN PRINT AT 18,positio 

"i"SAT 19,position; INK O3"k"3: 


SO REM *#*# fire at target 
i@ LET shot=17: LET shotpos=position: 


> FOR n=1 TO 3: PRINT FLASH 15 
BRIGHT ilies: NEXT n 
6écig PRINT AT 1,183 FLASH 13 INVERSE 13” 
You Beastiit" 
’ "You have just killed 
"Sducks: PRINT " Poor little ducks 
14s PRINT : PRINT : IF escaped>@ THEN 
PRINT * Fortunately, "escaped; ” got 
away. "5 SINT : PRINT © PRINT " You put 
Limes," 
and scored "iscorej"” 


: PRINT &| PRINT FLASH 15” 
key to play again. " 
aS=INKEYS: IF at=—"" THEN GO 


¥8*% Instructions 
PRINT AT @,83 BRIGHT 13 FLAS} 
Ck <= S HG a 7 " 
PRINT AT 2,93 "Instructions 
RINT "This is a wicked game of ski 
at Duck Shooting.” 


M40 PRINT "You are stomping through the 
marsh-land, waiting for poor unsu 

BPecting ducks to fly over.” 

OOSO PRINT "Every duck you shoot is laid 

Outon the ground around you, so youmay 

POunt wour spoils. When you have shot 3 

fucks, they are taken off to market, 

end you aregiven 15 Bonus points.” 

O069 PRINT "When the sun comes out,the d 

eeksdo not fly. You may then take a pots 

wot at the sun to gain extrapoints. ” 

“O79 GA SUB S280 

‘O8C PRINT AT 2,45 "Every 3 Ducks you sho 

Wt gives a Bonus of 15 Points." 

OW09O PRINT "Every time you hit the sun, 

Jou get an extra 25 Points.": PRINT ©: PR: 

INT "Comtrols are as follow :i-” 


Pig@e PRINT : PRINT " "G’ moves you 
LEFT. * a” moves you RIGHT. 

sl id fires your gun.” 
O11e8 PRINT AT 15,8; INVERSE 15” You 
R TIME IS LIMITED $0 SHOOT CA 
MEFULLY!! " 
W200 PRINT AT 21,83 FLASH 13" Press any 
key to continue. " 


M219 LET aS=INKEYS: IF as="" THEN GO TO 
21g 

O215 FGR f=1 TO 21: PRINT AT £,@ie85: NE 

AT f 

§229 RETURN 

9998 REM *#*¥* set up user graphics 

O9G1 IF PEEK USR "a"=16 AND PEEK USR "b" 

e@ THEN RETURN 

9095S RESTORE F2ig:i FOR n=USR "a" TO USR 

Pyne sie a: PORE n,a: NEAT ni RETURN 

POLE DATA 16,3,139,76,168,196,28,255,8,2 
pi@s;, ane 193,398,153 

oy DATA @,255,9,255,09,68,255,9,1,49,49, 

L,127,251,237, 153 

Piz 

8,435,989, 129,252, 2° 


QOL DATA 34,42, 34, 


2,408,498, 232,1346,1346,14 

P@Gid DATA 8,12,12,9,39,63, 73, 93,28,124,6 

$,468,176,4,4,28 

PES DATA 29,28, 20,28,23,17,17,112,0, 24, 
1,249, 246,224,172 

Fle DATA 464,44,96,463,63,31,15,3,1,3,3,2 

P,252,15,6,9 

PGi? DATA 129,128,128, 229,127,192,9,9,95, 

G,°,39,253,11,3,6 

O18 DATA @,8,128,92,255,1245,9,9,78, 225, 

63,62,34,34,628,4 

POLP DATA 78,135, 252,124,459, 468, 34,9 

FA2S DATA F?,225,63,62,65,466,33,9,134,15 

3, 252,124,66,456,132,8 

Plige REM ##*¥ set time to g 


Figsl LET frames=23672: POKE frames,@: PO 
KE framest+i1,@: POKE framest+2,8: RETURN 
PllS REM. #*#* read clock 

Pi29 LET time=(45536XPEEK (framest+2))+(2 
SGXPEEK (framest+i1))+PEEK frames 

SisSe@ LET time=time/S5a: RETURN 


STEVE BROCKBANK 
Original program by Simon Williams 


GENERAL DESCRIPTION 


\Iwe your computer to place the past into more meaningful 
jrspective, understand the present and reveal the alternatives 
which exist in the future with this ‘Tarot’ listing. 

''he Tarot pack is the forerunner of modern-day playing cards. 
‘l'ho pack consists of 78 cards divided into 22 major arcana and 56 
iinor arcana cards. The 4 suits of 14 cards are named Wands, 
‘ups, Swords and Pentacles. Each suit contains 10 numbered 
, ards and 4 face cards: King, Queen, Knight and Page. Ifa cardis 

‘upside down or reversed then the meaning of the card is 
weakened, delayed or even reversed, but the program takes this 
info account. . 

Upon running you will be asked some questions so that a 
inignificator card can be assigned to you. Then you must 
‘goncentrate on a matter of concern and the computer reads from 
the 10 card or Celtic Cross ‘lay’. You can treat this divination light- 
heartedly or give it some deeper significance. 


89 
* This program needs a 48K Spectrum 


DETAILED DESCRIPTION 


Lines 10-25 Set variables and dimension the arrays. 
30-240 Information, instructions and the assignment of 
your ‘significator’ card. 
250-370 Reading from 10 card Celtic Cross ‘lay’. 
380-515 Card and message selection and print. 
529-550 Opening title page. 
690-710 Data for card names. 
720-1150 Data for divinatory meanings for each of the 
cards. 
1500-1520 User prompt. 
2000-3099 Set up user-defined graphics characters 
subroutine. 


3S POKE 236358,6: REM ¥*lower c 
aSSKK 

if RANDOMIZE : GO SUB 539g 

iS LET ni=i: LET ri=i:t LET r2= 
1: LET r=1: LET cn=8: LET bor=3 

25 DIM c(ii)d: DIM c#(4) : 

38 REM ¥¥*¥ Instructions *¥* 

4@ BORDER i: INK @: PAPER 6: C 
LS 

38 PRINT "The Tarot is an anci 
ent method" 

S2 PRINT "of fortune telling w 
hich makes” 

34 PRINT "use of a pack of 78 
cards." 

5é& PRINT : PRINT " These are 
divided into two" 

98 PRINT "Sections. The major 
and minor " 


68 PRINT "’arcanas’.": PRINT : 
PRINT "The major arcana is a se 
t of 22" 


62 PRINT "pictorial cards depi 
cting peopleand objects.” 
66 PRINT : PRINT "The minor ar 
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a" 


cana is similar to 

68 PRINT "an ordinary pack of 
pilaying” 

78 PRINT “cards with an extra 
tard in each” 

72 PRINT "suit, the *page’. Th 
e four suits” 

74 PRINT "are named wands, cup 
®, swords &" 

74 PRINT "pentacles.": GO SUB 
150@: CLS 

78 PRINT "The major and minor 
arcanas are shuffled together an 
d@ dealt out,” 

68 PRINT "face down, in any of 
several” 

82 PRINT “arrangements known a 
6 ’lays’.” 

684 PRINT : PRINT "The cards ar 
e then revealed, oneat a time, a 
nd read according to" 


94 PRINT "their individual mea 
nhings and their positions in r 
elation to” 

94 PRINT "the other cards.”": P 
RINT " I shall read from the 19d 


eard 

9464 PRINT " or ’Celtic Cross’ 1 
ay." 

19@ PRINT : PRINT "Before we st 
art, I need to know” 

192 PRINT “some things about yo 
uy, in order” 

194 PRINT "to assign you one of 
the court ” 

196 PRINT “cards as your ’signi 
#icator’." 

1@7 GO SUB 1589: CLS 

198 PRINT : INK 1: PRINT "Are y 
ou male or female?” 

199 PRINT "(Answer m or #)” 

116 LET s#®=INKEYS: IF s#<>"m" 


AND s#<>"f" THEN GO TO 119 

112 PRINT : PRINT "Are you over 

4g7" 

114 PRINT “(Answer y or n)"” 

116 LET aS=INKEYS: IF atS<i>"y" 
AND a%<>"n" THEN GO TO 116 

126 CLS 

138 PRINT "What colour is your 
hair?" 

132 PRINT "A very fair" 

134 PRINT "B gray” 

i346 PRINT "C light brown" 

138 PRINT "D = dark brown" 

148 PRINT "E = black" 

142 LET hS=INKEYS: IF h$<>"a" 
AND h$<>"b" AND h#<>"c" AND hs<> 
"“d" AND hS<>"e" THEN GO TO 142 

158 LET aS=s#+as 

152 IF aS="my" THEN LET aS$="KI 
NG": LET a=14: GO TO is¢ 

169 IF asS="fy" THEN LET at="QU 
EEN": LET a=13: GO TO 189 


i7@ IF as="mn" THEN LET aS="KN 
IGHT": LET a=12: GO TO is¢ 

i?72 LET at="PAGE": LET a=il 

188 LET at=-aS+" of " 

182 IF h$="a" OR hS="b" THEN L 
ET h#="WANDS": LET h=64: GO TO 2 
19 


178 IF h$="c" THEN LET hS="CUP 
S$": LET h=5@: GO TO 219 

2696 IF hs="d" THEN LET h#="SWO 
RDS": LET h=34: GO TO 219 


282 LET hS="PENTACLES": LET h=2 
2 


219 LET c(l)=ath 

212 CLS : PRINT "Thank you. You 
r significator is” 

214 INVERSE 1: PRINT AT 2,83 a%+ 
hs 

216 INVERSE © 

218 PRINT : PRINT “This card is 


Placed face up on 
220 PRINT "the table and the fi 
Pet 2 cards" 
822 PRINT "of the lay are place 
fi on top of” 
924 PRINT "it as they are dealt 


“ 
§ 


230 PRINT : PRINT "Please conce 
Atrate On any matter” 

B32 PRINT “of concern before pr 
Sensing SPACE” 

834 PRINT "to begin the reading 


948 IF INKEYS<>" " THEN LET r= 
RND: GO TO 2498 

250 REM #¥*¥ reading *#** 

249 CLS 

262 PRINT "The first card is la 
jd on top of" 

964 PRINT "the significator and 
shows the" 
266 PRINT "general surroundings 
of your " 

968 PRINT “enquiry. The card I 
turn up is": GO SUB 3389 

972 CLS : PRINT "The second car 
W@ is placed across" 

972 PRINT "the first and indica 


tes any " 

274 PRINT "current problems. Fa 
vourable " 

a76 PRINT "cards mean small pro 
blems.” 

278 PRINT "I draw :": GO SUB 38 
] 


280 CLS : PRINT "The third card 
» which indicates” 

282 PRINT "your aims and ideals 
,»is placed” 

284 PRINT "above the significat 
or. In this” 

286 PRINT "case the card 
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GO SUE 388 

298 CLS : PRINT "The fourth car 
d, placed below " 

292 PRINT "the significator, sh 
ows the ” 

294 PRINT "background to the pr 
esent” 

296 PRINT "situation - what led 
up to it." 

2°38 PRINT "I turn up:": GO SUB 
38a 

398 CLS i: PRINT "Left of the si 
gnificator, the" 

382 PRINT "fifth card shows the 

immediate " 

384 PRINT "past - what is ’behi 
nd’ you. " 

384 PRINT "This card is:": GO $ 
UB 339 

31@ CLS : PRINT "The sixth card 
»s taid to the ” 

S312 PRINT "right of the signifi 
cator, shows” 

314 PRINT “the immediate future 
- what is "” 

314 PRINT "’before’ you. The ca 
rd drawn isi": GO SUB 338¢g 

329 CLS : PRINT "The seventh ca 
rd, placed to the" 

322 PRINT “right of the sixth, 
shows your” 

324 PRINT "attitude to the matt 
er. If a " 

326 PRINT "court card is drawn, 
you are ” 

328 PRINT "showing some of the 
features of” 

327? PRINT "that character. I tu 
rn up:": GO SUB 38a 

338 CLS : PRINT "The eighth car 
d, which indicates” 

232 PRINT “the environment in w 


uksh3) 


hich you are" 

134 PRINT "working, is laid abo 
ve the ” 

356 PRINT "seventh. I draw:": 
00 SUB 389g 

%40 CLS : PRINT "The ninth card 
Shows your hopes” 

S42 PRINT "and fears and is pla 
fed above " 

S44 PRINT "the eighth. This ca 
fd isi": GO SUB 389 

§8@ CLS : PRINT "The last card, 
the tenth, shows” 

S52 PRINT "the final outcome of 
the matter” 

S54 PRINT "- what wilt be - and 
is laid " 

$56 PRINT “above the ninth. It 
ie:": GO SUB 38a 

S690 CLS : PRINT AT 9,985 "This co 
fWPletes the reading." 

S62 PRINT AT 11,43"I wish you g 
Hod fortune.” 

$644 PAUSE 3592 

S76 RESTORE : GO SUB 538: RUN 
Sea REM :* card/message selecti 
on and print ¥* 

S398 LET r=INT (RND¥(156)+1): IF 
p>?83 THEN LET n=" REVERSED": 
LET ri=r-78 

S95 IF r<=78 THEN LET ns=""" L 
eT ri=r 

4@@ IF r1>é64 THEN LET r2=r1-64 

LET n=" of WANDS"tn#: GO TO 4 
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419 IF r1>5@ THEN LET r2=r1-59 

LET n$=" of CUPS"+n$: GO TO 45 


428 IF ri>3é6 THEN LET r2=ri-3é 
LET n=" of SWORDS"+nS: GO TO 


43@ IF ri>22 THEN LET r2=ri1-22 


: LET nS=" of PENTACLES"+n#: GG 
Ta 45¢ 

449 RESTORE 698: FOR n=1 TO rl: 
READ m$: NEXT n: LET n=m$tns: 
LET j#="MAJOR": GO TO 4649 

456 RESTORE 716: FOR n=1 TO r2: 
READ c%$: NEXT ni LET n#="The "+ 
c$t+ns: LET j#="MINOR” 

469 IF ni>=12 THEN LET nil=1: G 
Oo TO 47g 

442 IF r=c(nl) THEN LET ni=1: 
GO TO 389g 

465 LET ni=nit+i: GO TO 46g 

479 LET c(cntl)=r: RESTORE 729: 
FOR n=1 TO r: READ t%$: NEXT n 
475 PRINT : PRINT n& 

4389 PRINT : PRINT "This card is 
Of the "3j%$3" Arcana” 

482 PRINT “and implies: ": PRINT 
; PRINT 5;t& 

499 LET cn=cnt+1: GO SUB 2989 
599 GO SUB 1599 

3ig LET bor=bort+1: IF bor>? THE 
N LET bor=9 

9135 BORDER bor: RETURN 

530 BORDER @: PAPER 2: INK 7: C 
LS 

548 INVERSE 1: PRINT AT 8,53 "% 
TX AXR*XOX T ¥": INVERSE @ 
358 GO SUB 3996: LET cn=18: GO 
SUB 2966: PAUSE 28@: RETURN 

679 DATA "The MAGICIAN", "The HI 
GH PRIESTESS","The EMPRESS", "The 
EMPEROR”, "The HEIROPHANT", "The 
LOVERS", "The CHARIOT”, "JUSTICE", 
"The HERMIT", "The WHEEL of FORTU 
NE" 

788 DATA "STRENGTH", "The HANGE 
D MAN", "DEATH", “TEMPERANCE”, "The 
DEVIL"”,"The TOWER","The STAR",” 
The MOON", "The SUN”, "JUDGEMENT", 
"The WORLD"”,"The FOOL" 


TIS DATA "ACE", "2 "(37g N44" "S"5 
marys "6,7", "18", "PAGE", "KNI 
Ont", "QUEEN", "KING" 

422 DATA " Either the need for 

or the skills of diplomacy.” 
,"Mystery & the future or a woma 
fh with psychic powers."," Fruit 
fulness in all its associa 
fiens. Initiative.” 

y25 DATA "Stability in life. Th 
® aid of a powerful person." 

7308 DATA " Associations with 
thers and particularly marriag 
e.","All forms of love and attra 
Plhion to beautiful things” 

732 DATA "Triumph only thru’ pe 
pSeverance and doggedness”, "The 
just outcome of problems.” 

749 DATA "Corruption. Others ma 
y try to betray you.", "The for 
fes of luck and therefore succes 
5." 

v42 DATA "A time for taking cou 
fage and acting energetically. 
","Intuition. Your own or advice 

from one who has.” 

75@ DATA "The end of a cycle o 


‘f events. Change and renewal.” 


,"A need for economy and good 
management." 

752 DATA "The effect of extra e@ 

ffort. Possibly violence”,"A 


‘versity and distress. Misery c 
-@used by conflict.” 


768 DATA "Loss by theft of mate 


‘fial or spiritual things.","A 


warning of hidden enemies who w 
{ll deceive.” 

762 DATA "Material happiness. C 
Ontentment through good marriage 


778 DATA "Change of position. R 


enewal and rebirth.", "Assured su 
ccess via a voyage or change of 
place.”,"A time to consider your 

career. Consolidation.” 

7398 DATA "Perfect contentment. 

Also financial reward.","A 

time for gaiety & recreation. FP 
erhaps good news.” 

732 DATA "Craftsmanship and the 

need to use practical gifts.” 

»"Gift or legacy. The acquisitio 
n of new possessions.” 

798 DATA "Material difficulties 

but love is well looked on.",”" 

Gratification through gifts or 
Other pleasures.” 

792 DATA "Ingenuity in business 

and money matters.”","A creative 

period in craft or Business.” 

899 DATA "Prudence. Safety and 
accomplish-ment from this.", "Gai 
no in monetary or family mat 
ters." 

BE2 DATA "A time for scholar 
ship or reflection. Look to y 
our affairs”, "The effect of some 
one with your affairs at heart." 

S18 DATA "The effects of an opu 
lent thoughgenerous woman. Secur 
ity.", "Intellect and particula 
rly mathematics. Look to bus 
iness. ” 

828 DATA "Great force in love o 
r hate. Triumph through this. 
", "Conformity and the stability 

this may bring." 

822 DATA "A feeling of loss of 
someone or something.”, "The need 
for solitude. A time for cont 
emplation.” 

339 DATA "Loss or destruction o 
# somethingclose to you.","A jou 


they which may include trave 
| by or over water." 

O32 DATA "Annoyance at the fail 
ure of a plan through disagree 
went.","Bad news of an illness o 
y other crisis." 

048 DATA "Deep disappointment p 
Hesibly through death.", "Pain 

hk sadness. All is not well.” 

042 DATA "Examination. The abil 
ity to study details normall 
¥ missed.”", "Skill and bravery. T 
fe time to use such virtues.” 

O50 DATA "Sadness or embarrassm 
ent for youtif female) or a woma 
fh close to you."," The effects 

of one with authority to m 
ake decisions.” 

6869 DATA "Contentment with all 
Pelation- ships.", "Love and pas 
Sion. The inter- relation of 
the sexes.” 

662 DATA "A happy conclusion. M 
erriment and fulfilment.”,”Tir 
edness and imaginary worries cau 
wed by a strict routine.” 

870 DATA "Receipt of a gift. Th 
ie results in another loss.", "Re 
f{lections on the past and ch 
iidhood.” 

672 DATA "Imagination. A good t 
ime for creative work though 
transitory.","Dejection over thi 
ngs as they are. This will pas 
_,” 

868 DATA "A victory in somethin 
gyou desire", "Contentment with y 
Our present surroundings and t 
hings as they are.” 

882 DATA "The effects of a fair 
& studious young man. He may he 
Ip you. ","A proposition or invit 
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ation.” 

899 DATA "The effects of a fair 

woman. Sheis dreamy but visiona 
ry.", "The effects of a creative 
man in Business, law or the chur 
ch." 

768 DATA "The beginning of new 
things - creation. Possibly a 
birth.", "Physical suffering or 5 
adness. Dissatisfaction with po 
ssessions” 

982 DATA "Strength in trade and 

dealings with people.","A happ 
y life. Peace & prosperity" 

Fis DATA "Imitation or sham. A 
superficial view.", "Success in u 
ndertakings or great news.” 

912 DATA "A need to work by dis 
cusion and negotiation. Final su 
ccess.", "Haste towards a favoura 
ble out- come. Change.” 


728 DATA "Delay caused by oppos 
ition to your ideas.”, "Financi 
al gain but opposition inlaw.” 

S22 DATA "The influence of a da 
rk young. man. He may bring new 


s.", "Departure or absence. A mov 
2 or emigration.” 

9398 DATA "The influence of aco 
untry womanwho is loving and hon 
ourable.", "The influence of a fr 
iendly countryman who is hon 
est and conscientious.” 

749 DATA "Disquiet and a feelin 
g that all is not right.","The p 
hysical side of love. Passi 
on. A very strong card.” 

P42 DATA "Light and truth in ma 
tters, Complex problems reve 
aled.", "Benevolence of others to 
wards you," 

739 DATA "An increase in you 
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f under- standing of society 

e',"Certain projects may be 

foolishly thought out.” 

952 DATA "A dispute. Possible 1 
itigation.”","A tendency to bi 
ae. Watch against bigotry.” 
949 DATA "An overcautious attit 
ude. Think things out - then act 
»", "Abundance of the good things 

in life. Enjoy them.” 

942 DATA "An abuse of power 
through weakness.”", "Obstructi 

on through selfishness. Take hee 

d," 

978 BATA "Lethargy. Inaction c 
ould cause problems.", "Connectio 
ne with the church or religion 
look well.” 

972 DATA "Blindness to what is 
right. Pettiness.", "Problems 

caused by argument or disagree 
ment.” 

986 DATA "A tendency to arrogan 
ce which May cause alienation. 
","Instability and inconstancy o 
f those about you.” 

982 DATA "Contentment on materi 
al and spiritual planes.” 

998 BATA "Weakness through an oa 
versimpli- fication of events.”", 
"Inertia or fixity may cause 

stagnation.", "Folly through ext 
ravagance or pleasure-seeking. 

“ 

1968 DATA "Bad intelligence. The 
evil side of wealth.”","A facade 
of enjoyment to keep others h 

appy." 

1982 DATA "mediocrity in work. A 
tendency to pettiness.", "Delay 
to some project due to other 

6” opposition.” 
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1gig DATA "Disorder or chaos. It 
may spell ruin for some project 
»","Envy and jealousy which lead 
to illusory desires." 
IGiz2 DATA "Quarrels over money 
or possessions.”","A tend 
ency to vanity. This may stand 
against ambition." 
1828 DATA "Deception. Beware 
of others keeping bad faith.” 
»"Monetary loss through gambling 
or robbery. Take no chances.” 
1822 DATA "“Unfavourable news cau 
sing worry.", "Idleness and lack 
of energy. Stagnation." 
1939 DATA "Suspicion & mistrust 
may effect your reasoning.”, "The 
temptation of vice. Watch for 
weakness,” 
ig48 DATA "Great force in love o 
rp fate. Notto the good.", "Lies 
and disloyalty. Beware untrut 
hs.” 
ig4z2 DATA "Confusion and a ‘fe 
eling of intellectual isolati 
on.”, "Precaution. Be careful wha 
t you do.” 
1838 DATA "Loss or destruction o 
# somethingclose to you.","A pr 
oposal of love or otherdecla 
ration. Publicity.” 
132 DATA "Good advice from a wi 
Sse person. Take heed.", "Difficul 
ties and opposition. Treacher 
ye" 
196@ BATA "Suspicion cast on 
you or a fteeling of shame.", 
"Transitory profit or advantage. 
Make hay...” 
1962 DATA "The use of observatio 
n to bad ends. Spying.", "Fool 
ishness. The inability to thin 
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k soundly.” 

1978 DATA "A closed mind. Watch 

against bigotry or deceit.", 

A tendency to cruelty or 

perversity. Watch this." 

1@8@ DATA "Discontent. The desir 

e to put right your problems.” 

»"Love and passion. The inter- 
relation of the sexes.” 

{@82 DATA "A new venture or 

holiday. Achievement from this 

.", "New relationships and a deli 

ght in novelty." 

1992 DATA "The chance of new all 

jances, Business looks well." 

,"The chance of fresh excitement 

®.Renewal.” 

{92 DATA "A desire to succeed. 

Your force of will.", "Great joy 


and happiness. A celebrat 
fon.” 

119@ DATA "Loyalty of others 
to you. Honesty and good a 


dvice.","Indignation at an af 
front inlove. & violent respon 
fe." 

1192 DATA "A taste for risk coul 
d lead to deception.","A trick 
or fraud. Be on your guard.” 
1118 BATA "The influence of a di 
stinguishedwoman. Don’t trust he 

ra", "The effect of a rogue 
or scandalmonger. He is disho 
nest.” 
1128 DATA "A fall in fortune. Ru 
in of some-thing established."," 
Surprise and wonder leading to 
disquiet.” 
1122 DATA "The end of troubles. 
Adversity is over.", "Prosperity 
and increase. An appreciati 
on of beauty." 
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1138 DATA "Contradiction and the 
tendency of others to trick yo 

us", "Apprehension and the fea 

r ofdefeat.” 

1132 DATA "Perplexity. Embarrass 

ments and worries.", "Quarrels a 

rising from jealousy or envy.” 
1149 DATA "Obstacles to your 
ideas. Possible calamity.”", 
"Difficulties and the intrigue o 

# others against you.” 

1142 DATA "Bad news or announcem 

ents. Indecision.", "Discord 
. Interruption of the present 
status quo.” 

1159 DATA "Problems of jealous 

y ~ deceit or infidelity.”", "The 

influence of a good butsev 

ere man. He is austere, yet 
tolerant.” 

1598 INVERSE 1: PRINT AT 21,93" 

Please press SPACE to continue " 
+ INVERSE @ 

1519 IF INKEYS<>" ”" THEN Go TO 
1519 

15268 RETURN 

2999 RESTORE 219¢ 

2918 FOR n=1 TO cn: READ y,x: PR 
INT AT y3x3 "A" 

2828 IF cn=2 THEN PRINT AT y,x3 
“Be 

2838 NEXT n 

2959 RETURN 

2199 DATA 13,19,18,19,17,19,19,1 
G,18,9,18,11,18,12,18,13,17,13,1 
6,13 

36998 RESTORE 3926: FOR n=1 TO 8: 
READ row 

3919 POKE USR "A"+n,row: NEXT n 
3928 DATA 460,69,69,49,69,69,49,9 
3938 FOR n=1 TO 8: READ row 
3649 POKE USR "S"tn,row: NEXT n 
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WSO DATA &,9,255, 255, 255, 255,95, 


” 
1099 RETURN 
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| BALLOON | 


LEON GOODFRIEND 
Original program by Adrian Roe 


GENERAL DESCRIPTION 


In this exciting game you must guide your hot air balloon throu jli 
the maze which appears on the screen, avoiding the walls whu ‘li 
will puncture it and cause you to crash. You must move youl 
balloon from the bottom-right to the top-left of the screen. As yi| 
move, the wind can cause your basket to swing away from Ilie 
balloon, which makes it even harder to avoid the walls. 
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DETAILED DESCRIPTION 


Lines 10 Set up screen colour and create space for the machina 


code subroutine. 

20 Call game initialisation subroutine. 

30 Set score, number of lives, and bonus. 

40 Call screen printing routine. 

50 Call balloon printing routine. 

60 Print score. 

70 Is right or left being pressed? 

80 Is up or down being pressed? 

100 Increase swing counter, bonus counter, and if swing 
counter =di then change swing of basket. 

105 If bonus counter >30, decrease bonus. 

110 Change balloon’s position. 

120 Is height a new maximum height? 

130 Erase balloon. 

140 Update balloon’s x and y co-ordinates and repeat loop 
from line 50. 

1000-1370 Print the balloon and basket in the 4 different 
basket positions. 


1@ INK @: PAPER @: FLASH @: BRIGHT @: 
OVER @: INVERSE @: BORDER @: CLEAR 32512 

28 GO SUB Fags 

39 LET sc=9: LET bn=186098: LET 1f=3: L 
EY di=S5: LET 11=8 

4a@ GO SUB 8988 

50 GO SUB sw 

68 PRINT #95AT 1,735c35 

P@ LET d=C(IN 3S2°466=251)-(IN 3276446 

69 LET e=(IN S65822=254)-(CIN 65275 

SS BEEF .1,@ 

1@G@ LET t=t+i: LET u=uti: IF tdi THEN 
LET t=@: LET swi=swtie@: IF swi=149@ TH 


1985 IF ur2e@ THEN LET u=8: LET bs=bs-25 


2000 If balloon has reached top-left then set up a new 
screen. 

2010-2080 Flash the screen four times. 

2090-2100 Reset screen to cyan. 

2110 Erase balloon. 

2120-2170 Print the basket as it falls to the ground. 
2180-2275 Print number of lives remaining. 

2280 Have you lost? 

2290-2300 You still have lives to spare so continue. 
3000-3010 Screen completed so beep and increase score. 
3020 If this is the first screen then restart game loop. 

3030 If you have already got the maximum number of 
lives then restart the game loop. 

3040-3080 Increase number of lives, bonus and print 
them on the screen. 

6000-6145 Print ‘game over’. 

6150-6180 If another game is required then restart. 
8000-8540 Balloon has crashed or this is the 1 st screen; so 
print screen, set swing, bonus, zero counters, print score 
and bonus. 

9000-9360 Print big balloon, give instructions if required. 
9800 POKE machine code into memory. 

9900-9980 Data for screen picture, machine code and user- 
defined graphics. 


LET swi=legegs 
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T @,9; GVER @3 "Bonus: 


Ler n=iceeede LET q=ytSte 
IF gtym THEN LET ym=q: LET sc=sct+2 


GO SUB swt78: LET sw=swl 
LET x=p: LET y=q: GO TO 3 
PLOT x,y: DRAW 1,9: DRAW 3,3: DRAW 
DRAW -3,3: DRAW -3,8: DRAW -3,-3: D 
DRAW 3,-3: DRAW 1,9: DRAW -%,- 
-2: DRAW 2,2: DRAW -2,2 
IF POINT (x+i,y+?)+POINT (x-S,yt3) + 
(xt4,y7+3)4POINT (x-S,y-7)4+POINT (x 
44,746) 4+POINT (x-Syyt+G)4+POINT (x-2, 747) + 
POINT (x-i9,y7-S)+POINT (x-G,¥-5)<>9 THEN 
GG Ta 288¢ 
1ig2a RETURN 
ig@?7@ PLOT x,y: DRAW 1,9: DRAW 3,3: DRAW 
@,3: DRAW -3,3: DRAW -3,9: DRAW -3,-3: D 


SAW @,-3: DRAW 3,-3: DRAW 1,9: DRAW -9,- 
5: DRAW 2,-2: DRAW 2,2: DRAW -2,2: RETUR 


N 

1198 PLOT x+i,y! DRAW 3,3: DRAW @,3: DRA 

W -3,3: DRAW -3,@: DRAW -3,-3:: DRAW @,- 

3: DRAW 3,-3: DRAW 2,9: DRAW @,-6: DRAW 

2,-2: DRAW 2,-2: DRAW 2,2: DRAW -1,1 
111M IF POINT (x+1,74+9)4POINT (x-S,y+3)+ 
POINT (x+4,y¥43)+PQINT (x,y-19)+POINT (x+ 
4,y¥+G@)+PQINT (x-5,y+6)+POINT (x-2, +9) +P 
QINT (x+2,y¥-8)+POINT (x-2,y-3)<>9 THEN 
Go To 28068 

1124 RETURN 

1178 PLOT x+1,y¥: DRAW 3,3: DRAW &,3: DRA 
W -3,3: DRAW -3,@: DRAW -3,-3:: DRAW @,- 

3: DRAW 3,-3: DRAW 2,@: DRAW @,-4: DRAW 
-2,-2: DRAW 2,-2: aeae 2,2: DRAW -1,1: R 

ETURN 

1289 PLOT x-1,y: DRAW 2,94: DRAW 3,3: DRA 
W @,3: DRAW -3,3: DRAW -3,@: DRAW -3,-3: 
DRAW @,-3: DRAW 3,-3: DRAW 1,9: DRAW 9, 
-5: DEAW -2,-2: DRAW -2,2: DRAW 2,2 

121 IF POINT (x+1,y¥+?)+POINT (x-5,y¥+3)+ 
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POINT (xt4,y43) 4+FPOINT (x+6,y7-S)+POINT (x 
(4,y4S)4PQINT (x-SyytG) +FOINT (x-2, y+?) + 
POINT (x44, 9-5) +PQINT (x+é,7-7)}5>9 THEN 
G0 Ta 2880 

220 RETURN 

ie@ PLOT x-i,y: DRAW 2,9: DRAW 3,3: DRA 
W 9,5: DRAW -23,3: DRAW -3,9: DRAW -3,-3: 
DRAW @,-3: DRAW 3,-3: DRAW 1,9: DRAW F, 
Si DRAW -2,-2: DRAW -2,2: DRAW 2,2: RETU 
Igoe GO TO il 
1878 GO TO ii? 
eOae TF x44 AND y>138 THEN 
Ole FOR a=8 TO 4 


GO Ta 3889 


2026 POKE 32512,7 
VOSE LET B=USR 32513 
R049 BEEP .2,-18 
Q<4Y5@ POKE 32512,54 
(06s LET bEUSR 325135 
2078 BE 2 1 


WOES i 
20°98 POR 
Ziee LET a=USR 32513 

Bliss GO SUB swt7d 

R128 LET p=INT («/8):s LET q=2i-INTt 
Z1iS@ FOR a=q TO 21 

Bi¢d@ PRINT AT a,yps "Bb" 

ZiS@ BEEP .3,21-a 

2168 FRINT AT a,p3"b"5 

Zi7S NEXT a 

2ie@ INVERSE i: BRIGHT 1: OVER &: CLS 
R1ie°S PRINT AT 18,73; "Lives remaining: "fl 
(5AT 13,14) "aaaaaa"( TO lf) 
R268 FOR a=i TO 3: BEEP .1,15: 
NEXT @ 

LET 1f=1f-1 

PRINT AT 198,24; 1 


(y/3) 


PAUSE 49: 


3 
. 


— 


ny 

hom bh 
hh 
iQ 


2225 INVERSE @ 

2239 FOR a=? TO @ STEP -1 

224@ PRINT INK ajsAT 13,14+145"c" 
2268 BEEP .1,9 

2278 NEXT a 

2272 PRINT AT 13,14+1l#3" " 
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PPE PAUSE lad 
f TF lf=@ THEN GO TO 48808 
LET di=di+tig: LET li=li-t 
GO TO 48 
1 BEEP 1.2,2: BEEP 1.2,6: BEEP 1.4,97: 
og te: BEEP 1,12 
LET sc=sct+bs 
IF sctbn THEN GO TO 4¢@ 
TF lf=6 THEN GO TO 48 
8 LET 1f=1F4+1 
Y LET bn=L1@9EB*X(1+INT (sc/i1seeo)} 
PRINT INK 7: FAPER @3 OVER O35AT 19 
"SAT 11,75" "i FLASH 
"BONUS LIFE"$ FLASH &5”" FRAT Lea 5735" 


FOR a=i1 TO 7: BEEP .1,12: NEAT a 

FAUSE i4¢ 

GO TO 498 

INVERSE 1: CLS : INVERSE 9 

PLOT 26,119: DRAW 4,4: DRAW @,-19: 
§ 9,22,-1.5%PI 

6878 PLOT 26,76 


aj 


1 of iD 


od 


| 
a fs 
i | 


DRAW 12,34: DRAW 12,-3 
: PLOT 49,1@6: DRAW 16,¢ 
6888 PLOT 64, : 4,30: DRAW 
DRAW 12,12: DR 
685H a 16 -24,0: DRAW 8,38: 
DRAW 24, Lf DRAW 22 
aiee CIRCLE 
61i9 PLOT 
et 
6128 PLOT 2 5 DRAW -24,4: DRAW @,38: 
(195; 1415 DRAW 20,2 
DRAW 9,38: DRAW 14,39: 
IPAW -14,0: DRAW 6,@: DR 


AT 15,73 "Final score: 
46145 = OR e=a8 TO 1 STEP =i BEEF 
NEAT & 
Si=Q PRINT 7??? "Another game -y/n 


="N" THEN 


ol?rs 
LEAR 
Oleg 
Saag 
! BRI 
NALe 
Paes 
Use 
ake ss 
oketss 
hey 315) 
OW; LE 
1G: 
OSig 
S26 
lf) 
8525 
As3s2a 
1s49 
yea sar) 
VOOS 


" De. 
Peygoe 


TF INKEYS="y" OR EINKEY#="Y"" THEN C 
: GO TO 38 

GO TO 4i16¢ 

RESTORE : INK @: FAPER 3S: INVERSE @ 
GHT @: CLS 

PESD 2 

FOR b=i TO a: PRINT CHR? 1433: 
FREAD a: IF a=@ THEN GO TO 8586 
FOR b=1 TO at FRINT " "3: NEXT b 

60 TO 89198 

LET sw=1lig@: LET swil=sw: LET bs=l1s¢ 
Toym=9: LET u=@: LET t=@: LET di=di 
LET 1L1l=l11l#t1 

LET x=231: LET y=27 

PRINT #83 "Score: "isc, "A€aaaaa"( TO 


NEXT b 


PRINT AT @,983; "Bonus: iggg" 
OVER 1 

RETURN 

GO SUB S3sg¢e 

PRINT INE 7s TAB 123 "THIS"5: BEEP 1 
PAUSE 39: PRINT AT 7,125 "BALLOON!" 


{AT B,173 INK 75"IS": BEEP 1.2,64 


VOLE 
OLS 
vA oars 
WS e 
Wit4 a 
DRAW 
ao kara 
DRAW 
Wu orass) 
Var es 
MBS 
Oo 
"leg 
4o,b: 
PL1ig 


Rize 


en's 
913a 
VLl4g 


CIRCLE 127,117,359 

BEEP 1.4,? 

PLOT 81,97: BRAW Se8,-5¢6 

PLOT 174,97: DRAW -39,-5@ 

FOR a=1 iii TO 144 STEP 3: PLOT a,23: 
8,25: NEXT a 

FCR a=23 TO 48 STEP 5S: PLOT ilii,a: 
33,@: NEXT a 
BEEP .3,13 
POKE 32512,58: 
EEEP 1,12 
PAPER 5 

FOR a=8 TO 23: 
NEXT a 

PAUSE 198 
INPUT "Do you want instructions - » 
LINE as 

IF ag="n" OR as’="N" THEN RETURN 

IF aé@i>"y" AND aSio"y" THEN GO TO 


READ Bb: POKE USR "a" 


Flea 

fis@ CLs 

16a PRINT ’"Your job is to fly your Bal 
Loon" 

9i?7a PRINT ’"from its start position at 
the" — 

S1S8 PRINT *"bBottom right of the screen 

to” 

S198 PRINT ’"the top left. You must keep 
to" 

92688 PRINT ’"the Blue sky because the 61 

ack” 

S2ig PRINT *’"clouds hide many Birds whic 


2268 PRINT ’"will burst your balloon.” 
F238 PRINT ’"Bonus points are awarded fo 
re 


9246 PRINT ’"completing the course quick 
Ly.” 

9259 PRINT ’’’TAB 93 "Press any key" 

F2é6a@ PAUSE € 

e278 CLS 

238 PRINT 7’? "Your balloon is controlled 
with” 

9299 PRINT ’"the following keys: - 

S398 PRINT °’TAB 1535 "A"3’’? TAB 1335 "N + MM" 
5’ *TAB 1535 "2" 


9318 PRINT ’? "You can move diagonaily by 
9326 PRINT ’"pressing the appropriate tw 
pb" 

P33 PRINT *"movement keys together. ” 
S348 PRINT °°" Fress any key to play" 
5 

Sise PAUSE @ 

F363 RETURN 


S898 RESTORE f95@: FOR a=32513 TO 32527: 
READ bi: POKE 4,65: NEXT a: RETURN 
pill REM Sc 


“a 


2 
ou 
se: 
cg 
> 
of 
he 
Os 
wl 
bet 
& 
= 
‘td 
~~ 
OD 
i 
a 
a 
“ 
Os 
h) 
D. 
Os 
) 
“J 


a 
oF titiai. 4.8, 4, 6,357 pea eae aed 
Oy 3 p45 Be Bo 2525195 Bs 255 Bs 20015258011, 21, 


“J 
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org 
"SS BATA 56,68,139,1398 
B66, 36,36, 24, 9,36, 36,195, 24, 24, 195, 34, 


REI Character data 


Some models of Spectrum 
will not RUN this 
program.1f you experience 
difficulty,replace lines 
7@ and 8@ withs 


70 LET d=(IN 32766=187)-(CIN 32 
766=183) 

B@ LET d=C(IN 65@022=190)-CIN 65 
278=189) 


3:065,56,56,28,9,8, 


fad - 
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DAVID JONES 
Original program by E.G. Kemplen 


GENERAL DESCRIPTION 


You must earn your wings in this contest of aerial combat. Ii: 
enact the Battle of Britain as you struggle to line up the enemy 
M.E.109 plane in your Spitfire’s gunsights, then stab at the Iv 
button. Depending on your aim you may hit his wings, tail 14 
fuselage, taking you nearer to your target of 50 hits. Howevw 
there is no time to relax, for as soon as you shoot one plane down 
another appears in your field of view. 

This game features nine difficulty levels and you must keep 
check on your fuel and ammo supplies as they are not limitle:: 


DETAILED DESCRIPTION 


Lines 50-70 Assign variables and set up the user-defined graplix 
characters. 
80-170 Set up the screen display. 
180-200 Position the enemy plane. 
220-260 Main program loop and user input. 
270 Out of fuel. 
280 Out of ammunition. 
290 Game over? 
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300-390 Move enemy plane at random then jump back to 
main loop. 

400-490 Act on user's input. 

500-560 Hit routine. 

570-590 Print a new enemy plane. 

600-650 Game over. Do you want to play again? 

670-860 Instructions. 

870-910 Input difficulty level. 

920-990 Data for graphics. 

1010-1030 Shot subroutines. 


16 REM Fighter pilot 

20 REM By E G Kemplen 

30 REM Converted to Spectrum 

46 REM by David Jones 27/97/83 

5@ FOR i=@ TO 63: READ a: POKE USR "a" 
ti,a: NEXT i 

68 POKE 23658,8: REM set CAPS 

768 LET s=@: LET sc=@: LET f1=4: 
=O: LET ay=9 

8@ INK @: PAPER 6: CLS : BORDER 
uy = 

98 GO SUB 676 

196 INK @: PAPER 5S: CLS : BORDER 
hy aed 

11@ PLOT 123,16: DRAW 9,159 


126 PLOT 124,16: DRAW 6,159 
139 PRINT AT 28,0; PAPER 4;" 
Fighter Pilot 


149 PRINT AT 29,963; PAFER 43 "Score ="35c 
} 

15@ PRINT AT 21,4: PAPER 43 "Ammo ="5 1969 
“$j 

16@ PRINT AT 21,223; PAPER 43 "Fuel 
OO-F15 

178 LET cx=15: LET cy=12: PRINT AT cy,c 
KE" 

18@ LET bx=15: LET by=3 

196 REM Position enemy 
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2668 PRINT AT by,bxs OVER 13 INK 13 "F"3A 
T byt+1,bx-25 "abcde" 

219 REM Keyscan 

226 IF df>@ THEN PAUSE df 

238 LET xS=INKEYS: IF x$>="A" AND x#<=" 
<=" THEN GO SUB 499: GO TO 3890 

249 IF x#=" " THEN LET b?=ATTR (cy,cx) 
: GO SUB 1919: LET s=s+i:i PRINT AT 21,63 
PAPER 43" "3$AT 21,93 "Ammo ="5160-s3 
259 IF x$=" " THEN IF b?=41 THEN GO 5S 
UB Seg 

269 LET fl=fl+1:i PRINT AT 21,28; PAPER 
45" "SAT 21,2235 "Fuel ="S 1900-413 

2708 IF £1=1969@ THEN PRINT AT 9,93 FLAS 
H i; "Out of fuel": GO TO 61g 

289 IF s=19@ THEN FRINT AT 9,@3 FLASH 
13; "Out of ammunition.": PRINT "Run like 
nell '": GO Ta 61g 

2°S IF sc>=5@ THEN GO TO 4669 

See LET nx=INT (RND¥3)-1: LET ny=INT (R 
ND¥3)-1 

218 LET dy=by: LET dx=bx 

S26 LET bx=bx+nxtax: LET by=bytnytay 
339 IF by?18 THEN LET by=18 

348 IF by<@ THEN LET by=9 

35@ IF bx>}29? THEN LET bx=29 

3696 IF bxt2 THEN LET bx=2 

378 PRINT AT dy,dxs QVER 13 INK 13; "F"3A 
T dy+i,dx-23 "abcde" 

Seg PRINT AT dy,15§3 INK G3 "h"SAT dy+1,1 
SE"A"SAT Cy,cx5"Q@"5 

3°8 GO TO 29g 

499 IF x$="Q" THEN LET ax=1: LET ay=1: 
RETURN 

418 IF x$="W" THEN LET ax=@8: LET ay=1: 
RETURN 

426 IF x$="E" THEN LET ax=-1: LET ay=1 
>: RETURN 

438 IF x$="A" THEN LET ax=1: LET ay=9: 
RETURN 

449 IF x#="S" THEN LET ax=@: LET ay=05 
RETURN 
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a5@ IF x$="D" THEN LET ax=-1: LET ay=@ 
| RETURN 

460 IF x$="2Z" THEN LET ax=1: LET ay=-1 
| RETURN 

476 IF x$="X" THEN LET ax=@: LET ay=-1 
§ RETURN 

460 IF x$="C" THEN LET ax=-1: LET ay=- 
1! RETURN 

499 LET ax=@: LET ay=@: RETURN 

S@@ LET ii=5: IF by=cy THEN LET ii=2 
S1@ IF by=cy-1 AND &Bx<cx THEN LET ii= 
2 

S2@ LET sc=sctii: FOR b=42 TO 24 STEP - 
6: BEEP .922,b6: NEXT b 

S308 PRINT AT 26,905 PAPER 45 "Score ="s5sc 
' 

548 PRINT AT cy-1,cx-45" 
S50 PRINT AT cy,cx-45" g "3 
5S6@ PRINT AT cyt1,cx-45" 
$76 LET bx=15: LET by=3 
58@ PRINT AT by,bx3 OVER 13 INK 15 "f"5A 
T by+i,bx-2;3 "abcde" 

S98 RETURN 

698 PRINT AT @,93;"Enemy planes destroye 
d using”"’s5" rounds of ammunition." 

618 PRINT "To play again press ’SPACE’. 


628 PRINT "To end press ’E’."” 

638 PAUSE @: LET aSQ=INKEYS: IF at=" " T 
HEN RUN 6¢@ 

649 IF aS<t>"E" THEN GO TO 639 

658 STOP 

668 REM Instructions 

6798 PRINT ” 


639 PRINT "You are the pilot of a SPITF 
IRE.” 

679 PRINT "Ahead of you is an M.E.199." 
768 PRINT "He is taking avoiding action 
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71S PRINT "and you must try to shoot hi 
m down." 

728 PRINT "Your guns are fired by press 
ing" 

739 PRINT "the ’SPACE’ key.” 

748 PRINT ’"The letters "QWEASDZXC’ are 
used"5 

758 PRINT "to control your SPITFIRE."” 
7648 PRINT "The top row *QWE’ make your” 
778 PRINT “plane climb and the bottom r 
ow ’ZXC’* make your plane dive.” 

788 PRINT "The left column ’QAZ’ make y 
our plane turn left and the right” 

7O@8 PRINT “column "EDC? will turn you t 

the right.” 

S99 PRINT "PRESS ANY KEY TQ CONTINUE 

: PAUSE @: LET zS=INKEYS 

Sid CLS : PRINT ” 


628 PRINT "The ’S’” key will straighten 

the plane up.” 

836 PRINT "You cannot alter course whil 
st firing your guns.” 

84a PRINT "The object of the game is to 


858 PRINT "score S@ points.” 

866 PRINT "A hit on the wing or tail sc 
oresZ and a fuselage hit scores 5.” 

87@ PRINT ’’ "Press @ to ? for difficult 
y"? "level and the game will begin.” 

S268 PRINT ’"@ = Easy F= Hard.” 

B8°@ PAUSE @: LET aS=INKEYS: IF atsi"e" O 
R ase"S" THEN GO TO 89¢ 

FOS LET df=(F-VAL (as) )*18 

Fig RETURN 

29 DATA 6,9,9,3,63,9,9,9 

P38 DATA 8,9,9,13,255,9,9,9 

F409 DATA 

SSe DATA 

Fag DATA 
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978 DATA &,9,8,8,8,8,8, 28 
98M DATA G, 24,24, 231, 231,24, 24,9 
998 DATA 24,24, 24, 24, 24,24, 24, 24 


leee REM Shot subroutine 

(@1@ FOR i=1 TO 3: FOR j=@8 TO 7: LET k=j 
#3; IF k?>? THEN LET k=k-? 

1928 PRINT AT cy,cx$s OVER 13 INK j3 PAPE 
Re ks" "§: BEEP .@1,18: NEXT j: NEXT i 
{1938 PRINT AT cy,cxs; INK @5 PAPER S35 OVE 


i Rk O63 "@"5s RETURN 
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BOOK INDEX 


ANDREW CRESSWELL 
Original program by Ian Andrews 


GENERAL DESCRIPTION 


This program will produce an alphabetical index of the dali 
entered. First of all you must enter the name of the book, and 1!" 
author, then you make a decision on the number and length «I 
entries for the index data. Make allowances for possible future: 
additions as you cannot easily alter these figures. 

Next, you are asked to type in the “text” part of the entry, 
followed byits page number, until you have entered all ofthe dat. 
The computer will sort this information into alphabetical ord 
You then have the option of printing the index on a printer, savin 
it on cassette, starting a new index list, or ending the program 

N.B. The 48K Spectrum will have a greater capacity for dala 
storage than the 16K version but in both cases the comput 
checks that it has sufficient memory to store your information. Thu 
greater the amount of data entered, the longer the sortin«) 
process will last. 


DETAILED DESCRIPTION 


Lines 1-40 Titles. 
50 Function for use when centering strings on display. 
70-120 Entry of name of book. 
150-230 Establish size of index and ensure sufficient 
memory is available to fit. 
240-265 Prepare for entry of index. 
270-480 Input entries of appropriate length, and page 
number for reference. 
500-580 Sort references into alphabetical order. 
610-700 Print index. 
710-735 Offer options for printing, saving, or erasing index, 
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or even exiting the program. 

740-770 Goto appropriate routine for selected option. 
780 Save option. 

810-910 Printer option, print out index on printer. 


REM JERE HHH HHH HEE 

REM ¥¥*¥% Book Index X*#***% 

REM SERRE HHH 

REM Original ZXSi program 

REM by Ian Andrews 

REM XH KEKE KK REEE EEE 

REM Spectrum conversion 

REM by Andrew Cresswell 

REM HHI EKER EEE EE 
CLEAR 

DEF FN t(x®)=INT ((32-LEN x#)/2) 
PRINT TAB 193; INK 73 PAPER 23;"I N D 

E X"3AT 2,983 PAPER 15; "Enter title": INP 
UT at 

12@ PRINT AT 2,43 INK 73 PAPER 153 "Enter 

author": INPUT bS 

15@ PRINT AT 2,83 INK 73 PAPER 13 "Enter 

an estimate of the number of entries yo 
u will make.” 

16@ PRINT AT 15,93 INK 153 PAPER 7; "“NB-B 
@® generous as you cannot extend the n 
umber later on." 

178 INPUT n 

198 PRINT AT 2,83 INK 73 PAPER 1;"Enter 

max length of entries."§ PAPER 75" 

"="; INPUT m 

219 LET pramt=PEEK 23732+256X%PEEK 23733 
: LET ext=pramt-32767 

228 LET d=S8e@s+ext-3kn 

238 IF déim¥n THEN PRINT AT 2,95 INK 75 

PAFER 23" Re-enter no. of entries - 

Max with "sms" characters is "SINT (d 
/m): GO TO 178 

248 DIM 18 (nt+i,m+3) 

268 CLS : PRINT INK 13;"Get ready to en 
ter words one by one (up to "3 INK 25 "** 
"sms "*H"s INK 13" characters","“in length 


= 
HSQVANBAUMBANReE 


N da 
i] 


121 


PRINT ’? "Press any key when ready" 

PAUSE @: PRINT : CLS 

FOR i=1 TO va 

PRINT INK 753 PAPER 13 "Entry "sisAT 

73 "Text?" 

IF i=n-198 THEN PRINT AT 15,63 INK 
PAPER 23 "WARNING - memory short." 
INPUT x%$: IF LEN x%$<=m THEN GO TO 


a 


oe oe Ud 


td 
iQ 


S348 PRINT AT 8,55 INK 73 PAPER 23 "Abbre 
Viate entry” 
359 PRINT AT 4,53 INK 13 «#3 ” 
"S FOR #=1 TO m: PR 
INT AT S,4+45"-"5 NEXT £: GO To 33¢ 
398 LET 18¢(i)¢ TQ m)=x$: LET x#=" "1: IF 
CODE 1%8(i)=226 THEN LET n=i-1: GO To 5 
ga 
438 CLS : PRINT INK 13 "Entry "siiTAB 1 
2;is(id( TO m)5AT 15,853 INK 73 PAPER 13" 
Page number?" 
446 INPUT p#: LET c=CODE p$: LET s=1 
459 IF c=32 THEN LET s=sti: LET c=CODE 
p$i(s):i GO To 459 
4698 IF c<48 OR c>57 THEN PRINT AT 18,5 
' INK 73 PAPER 2; "ERROR": GO To 449g 
479 LET 1$(i)im+i TO )=ps 
489 CLS : NEXT i 
38a REM order 
> PRINT AT 18,1253 PAPER 63 INK 
13 "Sorting” 
k=1 TO n-1l:i FOR j=1 TO n-k: IF 
(j)<=1%$(j+1) THEN GO TO 58¢ 
LET tS=18(j)}: LET 18(j)=1S(j+1): LE 
(jt1l)=tS 
NEXT k 
print 
S : PRINT TAB FN t(aS+" ")3 INK 
1p" Fass" "TAB OFN t("by") 5 "by"? TAB F 
N t(b$) 5b: PRINT 
649 PAUSE 1990: PRINT 
6596 FOR i=1 TO ni PRINT INK L535 18¢(i)¢ T 
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O m)3 TAB m+7318(i) (m+1 TO J): NEXT i 
788 PRINT ’’ TAB FN t¢("Index ends")3 INK 
7) PAPER 13 "Index ends” 

V1i@ INK 7: PAPER 1: PRINT ’’ "Do you wan 


teen . 


712 PRINT " S - to save it 
Zid FRINT " P - to print it 
Ji6é PRINT " A - to start a new index 


718 PRINT "or E - to end? 

728 POKE 234658,8: INK @: PAPER 7 
738 INPUT gq: IF g#<>"S" AND g#<>"P" AN 
D qg&<>"A" AND g#<>"E" THEN GO TO 739 
735 POKE 23655,9 

748 IF g#="S" THEN GO TO 78¢ 

75@ IF qg$="P" THEN GO TO 3819 

768 IF qgs="A" THEN GO TO 3¢ 

778 GO TO F999 

788 SAVE "book index" LINE 6@@: CLS : G 
Oo Ta 71¢ 

B18 CLS 

828 LPRINT TAB FN tlasé+" "YE" "Sass" 
""? TAB FN t("by")5 "by"’ TAB FN t(b$) 5 bs: 
LPRINT : LPRINT 

65@ LPRINT TAB 1@;"I N DE X": LPRINT =: 
LPRINT 

Be@ FOR i=1 TO n: LPRINT 18(i)¢ TO m)5T 
AB m+7518(i) (m+l TO )}: NEXT i 

918 LPRINT : LPRINT : LPRINT TAB FN tc” 
Index ends")3 "Index ends": GO TO 719 
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Bw w= = 


Tan pele 


ANDREW ESMOND 
Onginal program by P. Baker 


GENERAL DESCRIPTION 


In this game you are trapped in a graveyard at midnight, and the 
Zombies are crawling out of their graves to try and catch you 
Your task is to run around the graveyard trying to make all the 
Zombies fall back into their graves. If you fail and you «el 
caught by a Zombie you will be ‘Zombified’, which is a fate worse 
than death... 
This game demonstrates vividly the colour, sound and ust! 

definable graphics capabilities of the Spectrum. 


DETAILED DESCRIPTION 


Lines 10-20 Read in data about the directions of motion. 
100-220 Instructions routine. 
1000-1120 Main program loop routine which controls 
access to all the subroutines making up the program. 


1500-1550 Get the player to specify the number of 
Zombies. 


2000-2090 Draw the graveyard on the screen. 
3000-3080 Get key being pressed from keyboard and 
move your marker on the screen accordingly. 
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3085-3150 Move each of the Zombies in turn. 

3500-3570 Check to see if Zombie falls into a grave. 
3700-3710 You have been caught! 

4000-4050 See how long you have survived and check if it 
is a new highscore. 

9000-9900 Set up user-defined graphics and highscore. 


1@ DIM Atig): DIM B(ig): FOR I 
Bi TO 9: READ A(I),B(I): NEXT I 

20 DATA -1,1,8,1,1,1,-1,8,959, 
1,0,-1,-1,8,-1,1,-1 

{00 PAPER @: INK 6: BORDER @: ¢ 
Lo 

195 GO SUB 9880 

116 PRINT " 

AY @,113 OVER 13" 

(29 PRINT : PRINT " YOU ARE I 
N A GRAVEYARD,THE CHURCH CLOCK 
HAS JUST STRUCK MIDNIGHT!!!" 

{S@ PRINT "YOU MUST EVADE THE Z 
OMBIES FOR AS LONG AS POSSIBLE 
PY LURING THEM INTO OPEN GRAVE 
BAB). "3 

14@ PRINT “BUT, IF YOU ARE CAUGH 
, THEN YOU ARE “"3;TAB ig; FLASH 

;"ZOMBIFIED"; FLASH @ 

15@ PRINT : PRINT "KEYBOARD COM 
MANDS: * 

16@ PRINT 

170 FRINT * 

189 PRINT " 

19@ FRINT * 

208 PRINT " 

265 PRINT "CAPS LOCK MUST BE ON 
.PLEASE PUT IT ON AND FRESS *ENT 
eR? ": INPUT AS 

PRINT "PRESS ’SPACE 
SH 1; "ZOMBIES!" 
" THEN GO TO 


ZOMBIES" 


REM SCREEN WIDTH 
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1929 LET 

H 

1939 LET 

START 

1948 DIM Z(59,2) 

1959 GO SUB 15@@: REM INITIALIZE 

19é@ GO SUB 2@@9: REM SET UP BOA 

RD 

i978 GO SUB 30@@: REM PLAY GAME 

1989 INPUT AT 3,@; "ANOTHER GAME? 

"FAS 

ig9G IF AS="" THEN INPUT At: GO 

Ta 1996 

1198 IF AS(1)="Y¥" THEN GO TO 19 

5g 

iii@ IF AS(1)<>"N" THEN GO TO 1 

Be 

1128 INK 7: CLS : STOP 

15@@ INPUT AT 11,@;"HOW MANY ZOM 

BIES (20-59) "3Z 

1519 IF Z>5@ THEN PRINT "TOO MA 

NY": GO To 158@ 

1529 IF Z<29 THEN PRINT "TOO FE 

Wr GO TO. 1599 

1549 LET ZZ=Z 

i55@ RETURN 

1999 REM DRAW BOARD... 

2088 CLS : PRINT "CoDODDDDDRODDD 

DODDDDDODADODDDDDE " 

2019 LET Ag="F 

r 

2026 LET BS="F AB AB AB AB 

AB AB AB I" 

2638 PRINT AS: FOR I=1 TQ 4: PRI 
AS: PRINT BS: PRINT AS: NEXT 
PRINT A® 

" SDDDDDDDOODDDODDODDD 

DDBDODDDDADH" 

2645 LET O@=15: LET O1=11: LET O 

LET D=@: LET J=1: 
LET NS=1: LET NT=1 
AT G1,0@;"7": POKE O, 


BS} FOR I=1 To Z 

069 LET PL=INT (((SW-3)¥RND)) 41 
| LET P2=INT ((SL-2)*RND) +i: LET 
PuPL+P2XS2+SS 

$070 IF SCREENS (P2,P1)<>" " THE 
Go To 2868 

Bose LET Z(I,1)=Pi: LET Z(1,2)=P 
Oi PRINT AT P2,Pi;"#": POKE P,19 
5 

090 NEXT It RETURN 

p99 REM GAME... 

WOO POKE 23672,8: POKE 23673,9: 
POKE 23474, 

Wid LET AS=INKEYS 

M11 LET V=19 

W20 IF At¥="" THEN GO TO 3979 
W030 IF A*="@Q" THEN LET 
W031 IF A#="W" THEN LET 
W032 IF AS="E" THEN LET 
$033 IF A®="A" THEN LET 

‘$034 IF AS="S* THEN LET 
$035 IF AS="D" THEN LET 
$037 IF AS="Z" THEN LET 

$03G IF AS="x" THEN LET 

4039 IF A%="C" THEN LET 

$040 LET DO=A(V): LET DI=B(V): L 

Oy D=Dg+D1¥SW 

W079 IF SCREENS (01+D1,09+D@) =" 
‘THEN PRINT AT 01,083" "SAT Ot 
(D1,094+DO; "7": LET O=0+D: LET OL 

JeO1+Di: LET O@=0@+Dd: POKE 0,3 

W0ee IF PEEK (9+D)=195 THEN PRI 

NY AT O1,00;" ": LET O=O0+D: GO T 

0 3786 

S065 FOR I=1 TO NT 

W098 LET J=INT (RND¥Z) +1 

W095 LET P=SS4+Z(3,1)4+2(3,2)%5W: 

POKE F,7: PRINT AT Z2(3,2),Z(3,1) 
i ” u 

Wie@ LET Z(3,1)=Z(3,1)-SGN (ZCI, 

}1)-o@) 

Wii@ LET 


U 


eT Tre ed 
WN ese & Oo oO ON 


2(37,2)=2(3,2)-SGN 


(aig, 


127 


2)-O1) 

3128 LET P=S3+Z(3,1)+(Z2(3,2) ¥SW) 

313@ IF PEEK P=3 THEN 60 TO 37@ 

g 

3i4@ IF CODE SCREENS (Z(J,2),Z(J 

,1))=8 THEN GO To 35a¢ 

3iS@ PRINT AT Z(3,2),Z(3,1)5"#": 
FOKE P,195: NEXT I: GO TO 3@1g 

3568 FOR F=i TO @ STEP -.1: BEEP 
~81,F: NEXT F 

35i9 IF CODE SCREEN® (Z(J,2),Z(3 

21))=@ THEN LET P=P-1: LET Z(J, 

1)=Z(3,1}-1: GO To 3519 

3520: LET Z(J,1)=z 

3538 LET 2(3,2)=z( 
=Z-1 

Z¢1 THEN GO SUB 2ag¢: 

=NS¢+1: LET NT=NS: LET z=z+ 
(RND¥S) : IF Z>49 THEN LET Z 


( 


Ov 
m 
a 
my 


“J 


F=i1 TO 15: BEEP .1,96: P 
91,08; FLASH 13 "#": BEEP 
PRINT AT O1,0@35 "7": NEXT 


Sst 


reo UO ot 


> 


3 
E 
Ni 
4 
3 
R 


fh 


Tl = 


371g IF INKEYS="" THEN Ga 


4998 LET T=FN Ti): PRINT AT 1,83 
“WOU HAVE SURVIVED FOR "sTi" SEC 


IF T<HS THEN GO To 494g 
4926 PRINT "YOU HAVE SURVIVED LO 
*: IF HS=@ THEN LET HS=T: 


mae! 
an, 


PN20 FEE 


O30 FOR F=8 To 7: READ C,D,E: 
OKE USF "C"4F,C: PORE USR "D'+F, 
Di POKE USF "E"+F,E 

VO4G NEXT 

99590 BATA 

my 15,25 

a) 

SIeyS 

P USE "F"4+F,8: POKE 

POKE USR "H"+F,H: 

P,id6: NEAT F 

WO72 DATA @,16,3, 


|, 246, 2.8,9,9, a,@8 
}8o089 FOR F=G TO 7: READ J: POKE 


WeR "I"+F,3: NEXT F 


9990 DATA &,68,126,126,126,126,6 


0,19 

riae DEF FN T()=INT (S&5536*XPEERK 

UlSF44+25S6¥PEEK SIGPI+PEEK 23672) 
{350 

118 LET D@=8: LET Bi=@: LET O8= 
@: LET O1=9 

9129 LET HS=8 

99O0h RETURN 
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AIRCRAFT LANDER 


ANDREW ESMOND 
Original program by P. Bailey 


GENERAL DESCRIPTION 


You are required to take control ofalarge aircraft with 300 peo) le 
on board, and land it at the airport, seen through your cock})if 
window. You have various instruments to help you, displayiig 
airspeed, bearing, pitch, roll, altitude, distance from runway iit 
deviation from runway. 

You can use the throttle to increase or decrease airsper(|, 
Other controls allow you to roll left or right, dive or climb. Oni'e 
you have landed on the 2000m long runway you must brake anid 
use the rudder to try to remain on the runway. 

Throughout the simulation you can see the runway liglits 
piercing the gloom, and beyond, the lights of a distant city. You 
can alter the difficulty of landing by choosing wind speed and 
direction. Happy landings! 


DETAILED DESCRIPTION 


Lines 90-340 Various utility subroutines. 
100-110 Short delay. 
200-210 Long delay. 
300-340 User prompt for next page. 
400-440 Update in-flight variables. 
1000-1060 Main program loop approaching the airfield, 
1200-1290 Main program loop after landing on the runway 
1400-1500 Fatal crash routine. 
1600-1690 Landed O.K. but left the runway. 
1800-1820 Congratulatory message for safe landing. 
2000-2140 Update in-flight position and speed. 
3000-3040 Check for a crash. 
4000-4270 Update the screen display. 


130 


* This program needs a 48K Spectrum 


5000-5110 User input - in-flight controls. 

5500-5580 User input - after landing controls. 

6000-6090 Update variables after landing. 

7000-7060 Explosion on crashing. 

8000-8640 Initialisation, set variables, display instructions 
and user input of wind strength and direction. 

9000-9090 The black box, showing final values after 
crashing. 


1 REM ¥¥*Aircraft landing sim 
Ulator#¥k*® 

1i@ GO TO s88¢ 

99 REM ¥¥¥#Utility subroutines* 
we 

198 REM #*¥*¥Short delayXk* 

119 FOR j=i TO 5@: NEXT j: RETU 
RN 

298 REM ##*#Long delay*¥** 

219 FOR j=1 TO S@@: NEXT j: RET 
URN 

338 REM ¥*#*¥End of pagexx** 

31@ PRINT FLASH 15"Press <ENTE 
R> to continue” 

3270 LET xS=INKEYS: IF x$<>CHRS 
13 THEN GO TO 3298 

33@ CLS 

349 RETURN 

49@ REM ¥¥*¥Calculate components 
of velocityX** 

419 LET ra=adtci 

428 LET vx=as*SIN ra 

43@ LET vy=asxCOS ra 

448 RETURN 
1980 REM ¥¥*#*Approach to airfiel 
AHHK 
igi@ GO SUB 598g 
1929 GO SUB 2999 
1938 IF pzt<=@ THEN GO TO 126¢ 
ig4a@ GO SUB 4989 
195@ GO SUB 5988 
1948 GO TO 1916 
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REM *¥#After touchdown¥*¥ 
GO SUB 388¢ 

IF 1f=1 THEN GO TO 1496 
GO SUB 55498 

GO SUB 4898¢g 

GO SUB 49ag 

IF 1f=2 THEN GO TO 14998 
IF 1lf=3 THEN GO TO 1889 
GO TO 125¢ 

REM ¥*¥¥Fatal crash#x*¥¥*¥ 
PRINT AT 28,198; "Press any k 


LET ~S$=INKEYS: IF x$<>"" TH 

EN GO TO 1488 

1439 PRINT AT 198,198; BRIGHT 13 F 
LASH 13;"FATAL CRASH";: GO SUB 99 
97 

1448 GO SUB 119 

1476 GO To 1429 

1488 CLS : PRINT "The flight rec 
order has been recovered. The 

final flight” 

149@ PRINT "details were as foll 
Ows :-" 

is@s GO TO 788s 

1668 REM *#*XOff runway after goo 
d landingk#* 

i628 IF py>@ THEN PRINT AT 15,1 
§"You have gone off the end of "3 
AT 16,13 "the runway."3AT 17,13 "T 
ry using your brakes next";AT 18 
sli "time! ": GO SUB 216 

16398 IF ABS px>wr THEN PRINT AT 
15,15 "You are off the side of t 
he "SAT 16,15 "runway. "SAT 17, 
1j"Isn’t it wide enough for you? 
"SAT 18,135" "; GO SUB 219 
16468 IF ast=18 THEN PRINT TAB 1 
§"Luckily there is only minor"3T 
AB ij "damage at this speed.": GO 
SUB 21¢ 
1659 IF as>1@ AND as<=25 THEN P 
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RINT AT 15,13 "Serious damage to 
your aircraft"$AT 146,15 "But you 
wurvive to scare your"SAT 17,135" 
passengers to death again.": GO 
SUB 219 

{668 IF as>25 THEN PRINT AT 19, 
1j;"DISASTER-FATAL CRASH! !!": GO 
SUB 9697: GO SUB 219 

1678 CLS 

168@ PRINT "Details of the fligh 
t when you left the runway:-" 
16°28 GO TO 798g 

1698 REM ¥*¥XGood landing*** 

1618 PRINT AT 15,15 "Congratulati 
ons Captain. "5AT 16,15 "A safe la 
nding.”"3: GO SUB 9995 

1628 GO TG 988d 

209G REM **¥XUpdate position and 
gpeed in airkX** 

2618 LET pz=pztgz 

2926 LET py=pytgy 

2038 LET px=pxt+gx 

2648 LET pt=ptt+nc 

20358 LET rl=rl+be 

2646 LET as=ast2X¥SGN (t(tcti)-as 
) 

2678 LET ad=adtrl 

26389 LET vz=1¥(tc-S)+astSIN (pt® 
ci) 

28°S GO SUB 4998 

2198 LET gz=vz 

2116 LET gy=vytwy 

2126 LET gx=vxtwy 

2138 LET gd=-ATN (vx/vy)%¥c2 

214@ RETURN 

388G REM ¥¥X¥Check for crashk¥** 
3919 IF ABS rl>rt GR pt>tp OR pt 
<@ OR ABS ad>dyt OR as<45 OR as>5 
5 THEN LET If=i: PRINT AT 15,135 
“Crash on landing"3: GO SUB 7999 
3928 IF ABS px>wr OR py?>?@ OR py< 
-Ilr THEN LET 1f=1: PRINT AT 164; 
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13" off runway! "5 

3938 GO SUB 269 

384@ RETURN 

49@0 REM *¥*#Update displayXX** 

49198 LET ht=-pz2z-S: LET ld=-px-wr 

: LET rd=-pxtwr 

4826 LET hd=ht#?: IF hd<-py THEN 
LET hd=-py 

4$93@ IF hd< 3869 THEN 

g@ 

4946 FOR i=1 TO 5 

495@ LET yd=-py-ix*58¢ 

496@ LET qti,1l)=1d:i LET qtits,1) 


LET hd=398 


=rd 
48798 LET qti,2Z)=yd:i LET q(its5,2) 
4988 LET qti,3)=ht: LET qtits,3) 
=ht 


46898 NEXT i 

4196 LET q(iil,1)=-px: LET qtiil,2 
)=-py: LET g(12,3)=ht 

4119 LET q(12,1)=-px: LET q(12,2 
}=-py-lri LET qt(12,3)=ht 

4128 LET al=64/wri LET a2=63.5: 
LET a3=15.5: LET ad4=31 

4138 FOR i=1 TO i2 

4149 LET a@=(hd-qli,2))/(hd¥2) 
4158 LET rii,LI=INT (qli,l)*askta 
i+az) 

4168 LET r¢(i,2)=INT (a3d+astad) 
41798 NEXT i 

41°98 FOR i=? TO 2g 

4192 PAPER @: PRINT AT i,@5”" 


4194 NEXT i 

4268 FOR i=1 TO 12 

42168 PLOT 4@+r(i,1),ABS (9@-ri, 
2y) 

4226 NEXT i 

4269 PRINT AT 1,835 PAPER 135INT ¢ 
astcS); TAB 1@5INT (ad+tcS)5TAB 29 
SINT (pt+cS) 3 TAB 275 INT (rlt+c53) $ 
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" "SAT 3,95INT (pz+cS)5 TAB 1031 

NT (ABS pytcS)3 TAB 2@5 INT (pxtes 

yy" . 

42768 RETURN 

S089 REM ¥¥¥Check controlskk* 

SOig LET x$="" 

S028 LET x$=INKEYS 

S038 IF x$="" THEN RETURN 

SO4@ IF CODE x#$>47 AND CODE x%<5 

® THEN LET tc=VAL x 

Se5@ IF x$="F" THEN LET bc=-1 

S@648 IF x$="G" THEN LET bc=9 

S@7a IF x$="H" THEN LET bc=1 

S@se@ IF x#="M" THEN LET nc=l 

SO@9@8 IF x$="K" THEN LET nc=@ 

S198 IF x#="0" THEN LET nc=-t1 

S118 RETURN 

5560@ REM **¥*¥Controls after landi 

NQKKX 

S519 LET x$="" 

5526 LET x#=INKEYS 

5538 IF x#="" THEN RETURN 

5549 IF x$="R" THEN LET rc=l 

555@ IF x$="E" THEN LET rc=-l 

5566 IF x$="C" THEN LET rc=9 

5578 IF x$="B" THEN LET fd=2 

556g RETURN 

6898 REM ¥¥*¥After touchdownkk* 

6916 LET pt=8: LET rl=@: LET pz= 

9 ’ 

6828 GO SUB 559668 

6838 LET px=pxt+vx 

6848 LET py=pytvy 

6859 IF ABS px>wr OR py>?@ THEN 

LET 1f=2 

6968 LET ad=adtad#¥(SGN adX*SGN rc 

) 

6978 LET as=as-fd: IF as<=@8 THEN 
LET 1f=3 

6988 GO SUB 49¢ 

6993 RETURN 

7098 REM X*¥* explosion *#*X* 
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YB1ig LET aa=¢ 

7828 FOR i=255 TQ @ STEP -1 

7838 OUT 254,aa: BEEP .@1,RND¥29 
7O49 LET aa=aati1s5-256*% (aa>238) 
7958 NEXT i 

78658 RETURN 

BE8e8 REM *#¥#¥Initialisationk¥** 

8818 DIM g(12,3): DIM r(12,2) 

S926 PAPER 1: INK 6: BORDER 1 

893G CLS : PRINT TAB 3; "Aircraft 
landing simulator": PRINT 

6935 POKE 23655,8: REM set caps 

8449 PRINT "Do you require instr 

uctions (Y/N)? " INPUT x 

8838 PRINT 

S968 IF x$="N" THEN GO TO 8299 

6945 IF x$="Y" THEN GO TO 888d 

8678 INPUT "Please type Y or N"$ 
x$: GO TO 86g4¢g 

6g3e8 CLS 

Sea PRINT "It is dark and raini 

ng. YOu are approaching the airp 

ort with 388" 

8895 PRINT "passengers on board 

and your co-pilot has just becom 

2 unconscio-us, "5 

B6°7 PRINT "so you must land the 
aircraftalone. To be honest "3 

8Sig@@ PRINT "he was not doing a 

great job before he pas-sed out. 

81985 PRINT = PRINT "You are in 1 

evel flight at an altitude of 

3988m but only 28 kmfrom the end 
of the runway. Youraircraft is 

pointing in "3 

B1l1@ PRINT "the cor-rect directi 

on But any crosswindwill cause a 
deviation from thispath.” 

Bi2za GO SUB 31¢ 

S138 PRINT "You must be able to 

land with anairspeed of about 5¢ 
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m/s with noappreciable roll or 
pitch.” 
8135 PRINT "Roll must be less th 
an 3 degreesand pitch must be be 
tween @ and 5 degrees. Since the 
runway is 2888m long" 
6148 PRINT " the distance indica 
t-or must show less than this fi 
g-ure on touchdown. "5 
6145 PRINT "Similarly the runwa 
y is 188m wide so that if the d 
eviation is greater than 58m on 
touchdown you will miss therunwa 
ye" 
8158 PRINT : PRINT “After touchd 
Own you must use therudder to co 
rrect the direction of travel an 
d the brakes to stopbefore you r 
each the end of the runway"; 
8148 PRINT ", (this is indicated 
by a distance reading of @).” 
8145 GO SUB 319 
8167? PRINT "If you fail to stop 
or correct your direction(which 
may not be @ when landing ina 
crosswind) you will crash." 
8178 PRINT 
6188 PRINT "You can see the ligh 
ts of the runway and in the di 
stance the lights of the city y 
ou hope to avoid.” : 
8198 PRINT "Your instruments giv 
e you the following informatio 
ni 
8195 PRINT "AIRSPEED Speed in m 
/s." 
8197 PRINT “BEARING Direction 
in which theaircraft is pointing 
» 8S is straight ahead. Posi 
tive values are to the right.” 
619 PRINT "PITCH Positive val 


ues when thenose is pointing up.” 
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82998 PRINT "ROLL Positive valu 

es clockwiseRoll causes banking 

which changes the aircraft 
"s bearing." 

B2aq1 GO SUB 319g 

82603 PRINT "ALT Height above 9g 
round in m."’"DISTANCE from end 
of runway in m." 

8206 PRINT "DEV Sideways devia 
tion from centre of runway.” 

8228 PRINT "In flight you have t 
he follawingcontrols:" 

8239 PRINT *"F roll to left"? "G 

maintain roll at this level” 

B231 PRINT "H roll to right”"’ "M 

nose uplincrease pitch) "’"*"K main 

tain pitch at this level"’"O nos 

e down(decrease pitch)" 

6235 PRINT "@-? throttle control 
"' "Fach setting has a terminal 

Value of speed which is reach 

ed eventually." 

S237 PRINT "e.g. 5-159 m/s 2-59 

m/s.”""’ "Landing is usually reache 

do oon setting 2” 

8249 GO SUB 318 

8250 PRINT "After touchdown only 
the following have effec 


rt 


PRINT "E rudder left"? "R ru 
right"’’"B apply brakes"??? 
FRINT "N.B. All controls ha 
ve a delayedeffect on a large ai 
reraft.” 
82467 PRINT " In general they h 
Ave an effect on the second 
display after pressing a key 


hm hos 
om ¢ 
uo 


0 a oO 


Good luck!!! 


8279 INPUT "Do you want to see t 
hese again? "jx 
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‘She GO TO 384g 
U2°9 LET ci=PiI/18@: LET c2=i3sg/P 


08 LET fd=9 

GLa LET cs=.5 

R326 LET 1f=8: REM Landing flag 
©2330 LET pz=3Seegg: REM Altitude 
348 LET py=-2E4: REM Distance f 
rom airfield 

ES58 LET px=8: REM Lateral devia 
tion from glide path 

a34@ LET rl=8: REM Roll 

ai7°@ LET pt=8: REM Pitch 

B3I88 LET as=158: REM Airspeed 
e39°@ LET ad=9: REM Air direction 
“46a GO SUB 489 

241g CLS 

S415 LET vz=8 

8428 PRINT "Please select wind 5s 
peed and direction. A directi 
oan of 8 means that the wind 
is blowing straight at you and 
this gives the easiest landing 
since you danot need to alter ro 
Li or bearing.” 

H4234 PRINT "The direction should 
be between -9S, (from left) to 
98, (from right). A wind speed 
of 5 is a light breeze, 39 is 

a gale.” 

2449 PRINT "Wind speed(m/s)":i IN 
PUT xa 

e458 PRINT "Wind direction(deg)" 

INPUT xl 

24469 LET wy=-xokeCOS (xiktci) 
6470 LET wx=-xoXSIN (xl*¥ci)} 
8489 LET az=vzi LET gy=vytwy: LE 
T gxrevatwx 
8496 LET tc=5: REM Throttle cont 
rol 
85908 LET be=8: REM Banking contr 
ol 


139 


6518 LET nc=8: REM Nose up/down 
contral 
€529 LET rc=@: REM Rudder contro 
1 
8525 DIM t(i9) 
8539 FOR i=1 TO 19: READ t(i): N 
EXT i 
S548 DATA G,25,59,75,1989,158, 288 
7 208,275, 398 
65568 LET yt=28: REM Yaw toleranc 
i 
8569 LET 
e 
85768 LET 
ce 
e589 LET 1r=2869: REM Runway len 
gth 
8599 LET wr=5@: REM Runway width 
8696 LET hd=3e4: REM Distance to 
horizon 
Bé618 CLS 
2629 PRINT PAPER 1;"Airspeed B65 
earing Pitch Roll "3AT 4,93 P 
APER 95" 
"SAT S,85" wottiaaeteteas 


. ze . toe » 
seeseseseeeeeeee eae 


8638 PRINT AT 2,983 PAPER 13 "A1t 
Dist Dev "SAT 
6,9; PAPER Gi" setesetesectesess 
ieee fetuet onus “SAT 2Zisos* 


rt=3: REM Roll toleranc 


REM Pitch toleran 


8449 GO TO 1969 

9989 REM ¥*#*¥Final valueskt*#* 

egig PRINT 

9926 PRINT "Speed="s;as5 "m/s" 
S939 PRINT "Direction="s5ad; "deg” 
9949 PRINT "Distance from end of 
runway="sSABS pys5 "m" 

9959 PRINT "Distance from centre 
of runway="3ABS pxs3"m” 

9869 PRINT "Pitch="spt3 "deg” 

9978 PRINT "Roll="s5rl5 "deg" 
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9988 IF INKEYS="" THEN GO TO 99 

6g 

9998 STOP 

9@95 FOR x=1 TO 48: BEEP .1,x: N 

(XT x: RETURN 

9O°7 FOR x=49 TO 1 STEP -1: BEEP 
»l,x: NEXT x: RETURN 
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DAVID PONTING 
Original program by Alan Green 


GENERAL DESCRIPTION 


In this enthralling little arcade game, you must save the plait 
Earth from a group of alien spacecraft who are trying to colonise 
it. If you allow five alien spacecraft to land, then the Earth hus 
been colonised and you have lost. This game makes particulaly 
good use of the Spectrum's sound, colour and graphics facilitics, 


DETAILED DESCRIPTION 


Lines5 Call introductory music subroutine. 

35 Set highscore to 0. 

40-60 Set up user-defined graphics to represent the alien 
spacecraft. 

10-80 Set score, initial missile base x and y. 

90-97 If instructions are required, print them. 

100-120 Print the screen. 

150-155 Select a random starting position, direction of flight 
and type for the next alien to attack. 

160 Print missile base. 

170 Determine plotting x co-ordinate of base. 


180 Move base right or left. 

190 Move plotting cursor to base’s new position. 

200 If you have fired, draw the missile track. 

205 Move alien according to its direction of travel. 

210 Move alien down; if it lands, check to see if you have 
lost. 

212-214 Move the missile base again. 

220 Repeat main program loop. 

230-250 Print the alien who has landed below the line, and if 
five have landed, you lose. 

260-290 See if your missile hits the alien. 

300-340 Print game over, see if player wants to try again. 
350-370 Data for user-defined graphics. 

380-510 Instructions. 

520-640 Introductory music and picture. 

1000-3000 Move alien according to direction of travel. 


5 GO SUB 529 

1@ REM #¥*#ALlien Blasterkx** 

272 REM ¥#*¥@ Alan Green #X* 

3a REM ¥¥* 1982 KKK 

35 LET ss=8 

49 FOR n=6 TO 7: READ j: POKE 


USR "a"+n,j: NEXT n 


5@ FOR n=s TO 7: READ j: POKE 


USR "b"+n,j: NEXT n 


69 FOR n=8 TO 7: READ j: POKE 


USR "c"4+n,j: NEXT n 


78 LET a=i9i LET s=@: LET q=1 
68 LET z=31i: LET y=129 
S@ PRINT AT 12,15"Do you want 


instructions (y/n)" 


95 BEEP .1,28: LET aS=INKEYS: 


IF as="y" THEN GO TO 3389 


946 IF at="n" THEN GO TO 199 
7 GO TO 95 
1@9 BORDER 1: PAPER 1: INK 4: ¢€ 


"FAT 19,65 INK 


128 PRINT AT 6,23 BRIGHT 13; INK 
33 "Score @"5AT 8,16; "High “iss 
LET c=INT (RND¥3@)+1: LET b 


an 
1S) 


IF cf=5 THEN LET w=286¢8 
IF c>S AND ct24 THEN LET w 


1 
1 
i 
3 
i 
1 
1 
T 
ENE 


i 
1 
26 
1 


IF c>=26 THEN LET w=1909 

LET ch=INT (RND¥2)+1 

PRINT AT i8,a3 INK 63" A "3 
b-i,c-13 INK 43" "SAT b,c3 
43; CHR# (144+4+ch) 

7H LET x=(ak8)+12 

€9 LET a=at+(INKEY$="2" AND a<= 
} 

9 


oO On on i cn 
oN ee a ea 9 


- (INKEY$="1" AND a>=1) 
@ PLOT x,zi PLOT OVER 13x,z 
296 IF INKEYS="9" THEN DRAW I 
NK 5i9,y: BEEP .@25,28: PLOT x,z 
: DRAW OVER 13;8,y: GO TO 269 
285 GO SUB w 

219 LET b=b+1: BEEP .@1,19-b: I 
F b=19 THEN GO TO 239 

212 PRINT AT 18,a3 INK 63" 4 " 
214 LET a=at+(INKEY$="2" AND a<= 
- (INKEY$="1" AND a>=1) 

GO TO 149 

BEEP .5,-29 

PRINT AT 18,c-13" ": PRIN 

21,q¥23 INK 73CHR® (144+ch) 

g=5 THEN GO TO 3a¢ 

LET q=qti: GO To 159 

IF x=(c¥S)+4 THEN GO TO 28 


h, 


hl 


ho hd hy 03 
hy = 


GO Ta 295 

FOR n=-3 TO -1: PRINT AT b, 
INK 15 INVERSE 1;CHR® (144+ch 
BEEP .94,5-n: PRINT AT b,c; I 
2;CHRS (144+ch): BEEP .9@4,b: 


278 LET s=s+(Bb+(ch¥2)): PRINT A 
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t @,8; BRIGHT 15 INK Sis: PRINT 
AT bB,es" "3 GO TO 159 

30@ PRINT AT 18,123 INK 75 "Game 
Over": IF s?=ss THEN LET ss=s: 
PRINT AT 8,215 BRIGHT 15 INK 53 
us 
385 GO SUB 496 
Si@ PRINT AT 12,63 INK 63 "Press 
y to play again” 

3206 IF INKEYS$="y" THEN CLS B 
EEP .3,38: GO TO 7% 

33@ IF INKEYS$="n" THEN CLS S$ 
TOP 
349 GO TO 329 
359 DATA BIN S88998989,BIN S9G1i1 
§8G,BIN G8G11G9G,BIN 1991191, BI 
N 198119@1,BIN 11111111,BIN 1996 
O8G1,BIN 1G0Gedg1 
368 DATA BIN 9@1111969,BIN @1iliil 
119, BIN 11@11@11,BIN @1111119,B1 
N @1@118198,BIN 19899991,BIN G19¢ 
OSIG,BIN SHIGGids 
378 DATA BIN 9@81111988,BIN 9B19E 
19@,BIN @G11119@,BIN G111i1119, BI 
N 11111111, BIN @9199199,BIN S19¢ 
OGG1G,BIN 19Segseg1 
388 BORDER 2: PAPER 2: INK 7: C 
LS 

399 PRINT "ALIEN BLASTER": PRIN 
T AT 9,83 OVER 15" 

488 PRINT AT 2,83 "The Aliens ar 
e invading your"s5AT 4,135 "system, 
your only hope is to"SAT 6,13 "bl 
ast them before they land"3;AT &, 
13"and colonise the Earth!" 

41@ PRINT AT 19,15 INVERSE 15 I 
NK 73 FLASH 13 "WARNING..." 

429 PRINT AT 12,15 "QNLY FIVE AL 
IENS HAVE TO LAND"SAT 14,15 "TO T 
AKE OVER !!!t" 

438 PRINT AT 21,15 "Press any ke 
y for next page” 
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449 BEEP .1,14: BEEP .1,21: IF 
INKEYS$=""" THEN GO TO 44¢ 

4598 CLS 

435 PRINT "ALIEN BLASTER": PRIN 
T AT 8,83 OVER 13" 

448 PRINT AT 2,93 "To move base 
right press "5; INVERSE 13;"°*27" 

479 PRINT AT 4,8: "To move base 
left press "§; INVERSE 13 ""’17" 

488 PRINT AT 6,90: "Press "5 INVE 
RSE i; ""’@’"; INVERSE @3" to fire 
"S PRINT AT 9,9: "There are two d 
ifferent aliens, one scores more 

than the other.” 

425 PRINT AT 12,935 "The aliens a 
re worth more the nearer they 
are to the planet.” 

48? PRINT AT 15,55 INK 535 "8...R 
aider": PRINT AT 17,55 INK 45 "Cc. 
-- Droid” 


499 PRINT AT 21,13 "Press any ke 


y to start.” 

208 BEEP .2,5: IF INKEY$<>"" TH 
EN GO TO isd 

3i8 GO TO 3986 

328 BORDER 2: PAPER 2: ‘INK 7: C 
Ls 

338 PRINT AT 19,73; "Alien Blaste 
pa 

S48 FOR n=-1i@ TO 48 

S5@ BEEP .1,4¢-n 

5468 NEXT n: PAUSE 2: BEEP .5,29 
: BEEP 1,15: NEXT nr 

6ig FOR n=28 TO @ STEP -2 

620 BEEP .1,n: NEXT nm 

439 PAUSE 3: BEEP .25,15: BEEP 
.25,15 

6498 RETURN 

ig@@ LET c=c-1: RETURN 
28299 LET c=c+1:i RETURN 
3838 RETURN 


146 


STOCKMARKET 


TIM WARD 
Original program by Bob Chappell 


GENERAL DESCRIPTION 


Hecome a ‘wheeler-dealer’ in this game of high finance. You start 
off with between £100 and £100000 capital and deal in the four 
metals:- gold, tin, zinc and lead. The computer will recommend 
the best time to buy shares in these commodities, but ultimately 
the choice is yours. You can buy or sell as many shares as your 
income allows, then the computer will inform you whether the 
share values went up, down or remained constant. 

At any time during the game you may receive a newsflash. 
These can be helpful ie. bonuses which increase your cash or 
unwelcome taxes which deplete your funds. 

The game can end in three possible ways:- 

You can quit. 
You can become bankrupt. 
The market may collapse. 


DETAILED DESCRIPTION 


Lines 5-30 Initialisation and player's name input. 
40-50 Cheat routine. 
70-120 Press (SPACE) to continue routine. 
150-180 Input and validate capital. 
190-260 User input options. 
270-410 Buy or sell shares routine. 
430-540 Market news (up, down or hold). 
560-580 Profit or loss? 
590-620 Market fails. 
680-730 Bank takeover. 
740-780 BANKRUPT! 
800-990 Newsflashes. 
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* This program needs a 48K Spectrum 


1000-1190 Profit and loss account printout. 
1200-1340 Portfolio printout. 

1350-1430 End of game messages. 
1450-1610 Initialise all variables. 
1620-2020 Instructions. 

3000-3050 Newsflash ‘tickertape’ routine. 


S REM ¥¥* 22/7/83 4X 
19 REM ¥X¥* Stock market 4X 
iit REM *#X¥* Tim Ward KH 
i2 REM *¥** Based on a KKK 
iS REM *¥** a PET program *¥** 
14 REM *¥¥* by Bob Chappel *¥** 
iS PAPER 7: INK @: CLS : POKE 23699,59 
26 CLS : PRINT AT 3,75 INVERSE 15" Sto 
ck market "i PRINT AT 5,133 "by": PRINT A 
TO 7,75" Tim Ward": PRINT : FRINT " E 
nter your name please": INPUT c$ 
25 POKE 23458,8 
39 GO TO i459 
48 LET vé(1 TO )=" STOP PRESS! Mr "+c% 
+" was today fined £19060 for attempting 
to defraud the exchange ": LET o=o0+89+LE 
N c#: LET b=b-1@@@: GO SUB 38o8 
PAUSE 158: CLS : GO TO 43¢g 
PRINT #15293 
POKE 234672,255 
LET aS=INKEYS: IF as="" THEN GO TO 


IF as=" " THEN RETURN 
GO TO 8@ 
PAUSE 199: RETURN 
CLS : PRINT AT 9,835 CHR 13+CHRS tiw 
$: PAUSE 73: RETURN 
is@ CLS : PRINT AT 5,73 INVERSE 15" Sto 
ck market " 
168 PRINT AT 7,15" How much do you wish 
to bank ? (199-198969q)" 
165 INPUT 6b 
i768 LET Bb=INT (b): IF bt 189 OR brilssseEe 
THEN GO TO 156 
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is@ LET xz=1: GO TO 43¢ 
196 PRINT AT 17,43;h#: FOR j=1 TO 6: 
NT fa Pe "5 mBCGI5" MG 
191 IF j=4 THEN PRINT "“ "5 
192 NEXT j 
2068 PRINT AT 19,145" Enter selection ": 
INPUT ci LET c=INT (c) 
21i@ IF ctl OR c>é6& THEN GO TO 48 
226 IF c=5 THEN GO TO 449 
238 IF c=46 THEN LET tt=1: GO TO 1919 
246 IF #(c)=1 THEN PRINT d#: GO TO 43¢ 
259 PRINT AT 28,1435" How many shares ": 
INPUT s: LET s=INT (s) 
268 IF sti THEN GO TO 4¢ 
278 PRINT AT 21,5; "Buy or Sell !,(B/S)" 
INPUT at 
238 IF at<i>"B" AND aé<>"S" THEN GO TQ 


2°8 LET r=FN a(r): IF r=8 THEN PRINT 5s 
*: GO TO 43¢g 
368 LET p=vic)*#(S*(4-c)):s LET t=sX*p: IF 


aé="B" THEN GO TO 379 

31g IF s>ctc) THEN GO TO 44 

328 LET b=btt: LET clc)=cle)-s 

338 LET j=s¥pt(c): IF j=t THEN PRINT 35 
INVERSE 15" No loss or proffit ": Ga TO 
368 

34@ IF 3<t THEN PRINT 3 INVERSE 135" A 
profit of "St-j3: LET Ltcd=1cd + (t-jde 
GO TO 369 

358 IF j>t THEN PRINT INVERSE 15"A lo 
ss of £"sj-t3: LET l(cd=1(cd-(j-t) 

368 GO TO 399 

378 LET p(c)=p: IF b<t THEN PRINT f%: 
60 TO 43¢@ 

38@ LET b=b-t: LET tc=p(c)¥e(c): LET c¢ 
c)=cte)+5: LET £(c)=INT ((tct+t) /clc)) 
399 LET r=FN afr): IF r>@ THEN GO TO 4 
38 

49@ LET r=FN a(r): IF r<S THEN GO TO 4 
555) 

4i@ GO SUB 78: GO TO 819 
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428 REM ¥¥market newsk* 

439 GO SUB 78 

44@ LET 11=@: FOR j=1 TO 5: LET r=FN at 
rd): IF r>4 THEN LET f(j)=% 

441 NEXT j 

459 CLS : PRINT AT @,97in%: PRINT AT 3,2 
4; INVERSE 13" Frice ” 

451 FOR j=1 TO 4 

46G PRINT AT 3S+(j¥2),15 55 "208 "EMBCGIGS 
IF #(j)=1 THEN PRINT 5" "Sp%: GO TO 364 
g 

4768 LET r=FN at(r): IF r=@ THEN GO TO 6 
Ba 

4e@@ LET x=r-INT ((vdj)%.4)+.9): IF x=8 
THEN PRINT 3" hold "5" "3 

499 LET op=v(j)¥(5*(4-j))i LET vijdevij 
+% 

5S@@ LET cp=v(j)*¥(5*(4-j))3 IF x<=8 THEN 

GO TQ S29 

Sig PRINT " up "SINT (cp-op)s" "5: GO 
TO 539 

52@ IF x<@ THEN PRINT 5" down "INT 
p-cp)s" "5 

539 PRINT AT 3+(j¥2),245" "SINT (cp)3 
549 IF cptatj)} THEN PRINT "¥": GO TO 5 
6g 

56@ NEXT 7: IF 11¢8 THEN PRINT AT 13,5 
5 INVERSE 13” A total loss of "ABS 1i1 
57a IF 11>8 THEN PRINT INVERSE 15" A 
total profit of "311 

5ee@ LET 11=@: IF xz=1 THEN LET xz=@: 
0 SUB 7@: GO TO i?¢ 

See PRINT : PRINT INVERSE 15" Bank 

LET r=FN a(r): IF r=8 THEN GO TO 43¢ 
éO@ LET x=INT (r-(.2%i1)): LET i=itx 

61g IF i298 THEN LET i=2¢ 

628 PRINT INVERSE 15" rate "si5" %"5 
QO TO 479 

63@ LET r=FN a(r): IF ri< 38 THEN GO TO 
658 

6498 LET v#(o TO )=" Market fails !!! "3% 
LET o=o+19: LET 1l=li-b: LET 1(5)=1(5)- 


150 


bi: LET b=@: GO TO 649 

65@ PRINT pS: LET f(5)=1 

668 IF 11¢<@ THEN LET v#(o TO )=" loss 
of "+"£"4STRS (ABS 11): LET o=ot1@+LEN (5 
TRS (ABS 11))41 

678 GO SUB 76: GO TO Bag 

669 LET f(j)}=1:5 LET r=FN alr): IF rei? T 
HEN GO TO 748 

6°98 LET vSto TO )=" Bank takeover "i LE 
T o=o0t16: LET r=FN alr) 

768 IF r=@8 THEN LET v#=p%: GO SUB 3990 

GO TO 356498 

Fis LET v#(o TO )=" sell "+m#(j)+" at £ 
"! LET oF=otLl2+LEN (m$(j)) 415 LET p=21lk(s 
“(4-gj)): LET d=(26+(r/19))/1898: LET v#(o 

TO )=STRS (INT (p¥d)): LET o=ot+tLEN (STR 
$ (INT (p¥d)?}) 

728 LET t=INT (p¥d¥c(j)): LET b=btt: LE 
T th=t-c(j)¥ptj)i LET 1l1=1i4+ti:s LET 1(¢j) 
=lL(jdrtl 

738 LET ctj)=68: LET vij)=1: LET ptj)=8: 

GG SUB 3996: GO TO 349 

749 IF r<2 THEN PRINT " "“Sp%: LET f(¢j) 
=1: GO TO 5498 

7568 PRINT " BANKRUPT!" LET o=o0+26 

768 LET Li=Lli-(c(j)*¥ptj)} 

7768 LET Legs elt jd-(eCjd¥pj)) 

78@ LET c(j)=@: LET p(j)}=8: LET vijd=1: 

GO TO 35498 

7G REM *¥€Xf lashk¥*x* 

B9@ LET 12=@: LET r=FN a(r)di IF ris THE 
N GO TO 1@1¢ 

619 IF r>? THEN GO TO 899 

e2@ LET r=FN a(r): IF r>4 OR r=@ THEN 
GO TO 8748 

838 LET j=r: LET v#(o TO }=m$(j)+" Bonu 
s ": LET o=otLEN (m$(j))+4+7: LET r=FN alr 
) 

6849 IF r=@ THEN LET v#(o TO LET 
Oo=O+tLEN (p#) 

S59 LET r=10%*r: LET vo TO )=STRS r+” 
% ": LET o=otLEN (STR r)4+3: LET cp=v(j) 
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K¥iS*°(4-G))s LET 1L2=INT (cp/18ox*r)¥ce(j): 
60 SUB 388g 
869 LET b=b+1l2: LET 1(j)=1(j)4+12: GO Ta 
97S 
878 LET v#to TQ )=" Tax bonus "!: LET o= 
o+i2: LET r=FN a(r): IF r=@ OR b<i1 THEN 
LET r=8: GO TO 849 
6s@ LET r=19¥r: LET v$to TO )=STRS r+" 
% "3 LET o=0+LEN (STR® r)+4: LET 12=INT 
(6/19@*r): LET b=b+12: LET 1(6)=1(6)412: 
GO Ta 979g 


8°98 LET r=FN a(r): IF r=8 THEN GO TO 1 


P98 IF r<S THEN GO TO ?4¢ 

Sig LET v$(o TO )=" Super tax "i LET o= 
o+1i2: LET r=FN a(r): IF r=@ THEN GO TO 
849 

P28 LET r=r¥16: LET vo TO )=STRS (r)+ 
" % "S LET o=o0+LEN (STRS r)+4: LET t=INT 

(b/198@*¥r}i LET 1(6)=1(6)-ABS t: LET b=b 
-ABS t 


7398 LET 12=12-ABS ti GO To #79 
P49 LET véto TO )=m$(r)+" Bonus issue ” 
LET o=otLEN (m$(r))4+14: LET t=pt(r)¥c(r 


S58 LET clrd=clr)+CINT (clr) /2)) 

968 IF c(r)<>@ THEN LET p(r)=INT (t/c 
ri 

97S IF 12¢8 THEN LET v#(o TO )=" A los 
s of £"+STRS (ABS 12): LET o=ot1i3t+LEN (5 
TRS (ABS 12))4+1 

766 IF 12>8 THEN LET v#(o TO )=" A pro 
fit of £"45STRS 12: LET o=otiSt+LEn (STR 
12)+1 

79 GO SUB 369g 

1968 REM XX*¥ P/L accountkX* 

1gi@ GO SUB 1828: GO TO 12196 
1@2S CLS : IF tt=1 THEN PRI’ INVERSE 
is "Closing "$5 
1g3@ PRINT INVERSE 13" Profit and loss 
account": LET t=@: LET g=29: FOR j=i To4 
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1948 PRINT TAB 45 m#(j)5 
195@ IF 1¢j)<@ THEN PRINT INVERSE 15" 

£"sABS 1¢j)3" "2: GO TO 1879 

1966 PRINT ” £"51¢5) 

1976 LET t=t+1(j): NEXT j: LET 12=9: IF 
tt=1 THEN GO TO 1996 

198@ IF #(5)<>1 THEN LET 12=INT (b/199% 
i): LET b=b+l2 

1969S LET £(5)=8: LET 1(¢5)=1(5)4+12: PRINT 
: PRINT TAB 43 "Interest "5 

1198 IF 1(5)<@ THEN PRINT INVERSE 15” 
£"3;ABS 1(5)3" ": GO TO 1129 x 

1119 PRINT " £"31(5) 

1128 PRINT TAB 45 "Tax "3 

1138 IF 1(6)<@ THEN PRINT " "3; INV 

ERSE 13; "£"3ABS 1(6)5" ": GO TO 1156 
1148 PRINT ” "3 1(4) 
115@ LET t=t+1(5)+1(6) 
1169 PRINT TAB 4; "Total "3 
PRINT " "; INVERSE 15" 
Go Ta 1189 

1178 PRINT ” £°5t 

1189 PRINT : PRINT : PRINT TAB 43 INVERS 
EF i3" Inverse = loss " 

11998 GO SUB 78: RETURN 

1266 REM *¥X¥*¥portfoliok** 

171@ CLS : IF tt=1 THEN PRINT INVERSE 
13" Closing "5 

i?2?@ PRINT INVERSE 13" Portfolio ": PRI 
NT I$: PRINT AT 4,145" Original": PRINT 
AT 4,245" Current” 

1239 PRINT AT 6,1; "Metal Shares Cost 

Price": PRINT 1% i 

124@ FOR j=1 TO 4: PRINT AT 6+(j%2),15m% 
(7) 

1258 PRINT AT 6+(2%j),85" "SeCj): IF cj 
»}=@ THEN GO TO 1279 

126@ PRINT AT 6+(2%j),145" £"5 pj) 

12768 LET g=36: LET cp=v(j)¥(5*(4-j))2 PR 
INT AT 6+(2%j),245 "£"icp: PRINT : NEXT j 
1286 PRINT AT 16,1; "Bank £"5b 

127998 IF &6<S THEN PRINT INVERSE 135" ove 


: IF t<@ THEN 
£"5ABS t3" ": 
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rdrawn ” 

13698 IF b<-S9F AND ctl)=8 AND c(2)=@ AND 
c(3)=@ AND c(4)=@ THEN GO TO 1339 

1Sig PRINT : GO SUB 7@: IF c=46 THEN GO 
TO 14236 

i329 GO TO ig 

13538 PRINT INVERSE 13" You are bankrupt 
and your new " 

1349 PRINT INVERSE 135" address is Queer 
Street!!! "; STOP 

13598 REM End 

1368 CLS : PRINT INVERSE 13" MARKET COL 

LAPSE! !": GO SUB 11@: PRINT INVERSE 15” 
Bank takeover ": GO SUB 119 

13°@ LET g=23: FOR j=1 TO 4: PRINT " "$j 

57. "SmBC G5” sold at "3 

1389 LET r=FN a(r): LET p=21#(5*(4-j))5 

LET t=(188-(19%r))/189: LET r=INT (p¥t): 
LET 1l2=c(j)¥r 

398 LET b=b+12i LET t=c(j)¥ptj) 

1460 LET 1(jdH)(j)+(1l2-t) 


141@ PRINT " "$ra NEXT j 
i426 PRINT INVERSE 13" Closing balance 


£"3b3" ": GO SUB 78: LET tt=1: GO SUB 1¢ 
29 


i439 PRINT INVERSE 13" End of speculati 

ons!!"i STOP 

1449 REM #¥#¥XInitialisexkx* 

1458 DIM m$(6,4): DIM v#(286): RANDOMIZE 
; LET hS=" Buying and selling "i LE 

T i=S: LET tt=@: LET o=1: LET y=9 

1451 DIM vil@): DIM ptigs): DIM e(1M): DI 

M (19): DIM c(i@): DIM a(ig@): DIM 1¢(1@) 

1452 LET op=6: LET cp=6 

1453 LET r=RNDXCINT (65536*XPEEK 23674+25 

SYPEEK 23673+PEEK 23762) ) 

1454 IF r=@ THEN GO TO 14535 

i46@ FOR j=i1 To 6 

1461 READ ms(7} 

1462 BATA *Gold", "Tin", "Zinc", "Lead", "Pa 

ss", "Quit" 

1463 NEXT j 
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1478 LET 


1488 LET t=" 


149°@ FOR j=1 TO 4: LET v(j)=12: LET pj) 
=@: NEXT i: FOR j=1 TO S: LET #(j)=08: NE 
xT j 

156@ DEF FN a(r)=INT (iS*(RNDX1)): FOR j 
=1 TO 4: LET c(j)=@: NEXT j 

151@ REM 

15278 LET a(1)=159@: LET a(2)=398: LET a 
3)=6@: LET a(4)=12: FOR j=1 TO 4: LET p¢ 
jleatgj): LET e(j)=alj)s NEXT j 

153@ LET z#="Press <SPACE> to continue 


1549 LET p#="suspended " 
1559 REM 

1569 REM 

i578 LET d$=" dealing "+p% 
1589 LET s#=" market "+p 
1599 LET £#=" Inadequate funds " 

146496 LET n=" Market news = 
Recomended” 

1616 LET w="News flash” 
1628 CLS : PRINT " 


Stock market 


1638 PRINT : PRINT " Do you want instruc 
tions Y/N": INPUT a® 

1648 IF ae(i)<>"Y" THEN GO TO 159 

1656 CLS : PRINT " Stock market 
1668 


PRINT "You are first asked how much 


1679 PRINT “capital you want to start wi 
th.” 

1688 PRINT "Dealing is in four metals: -” 
1681 PRINT "gold,tin,zinc and lead.” 
169@ PRINT "Various reports will help yo 


ub 
1768 PRINT "control your speculations.” 
1719 PRINT "The game ends when you decid 
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2 to quit3": PRINT "or if you"; 
1726 PRINT " get too deeply in debt,": P 
RINT "or if the market collapses.” 
i736 GO SUB 7@: CLS : PRINT INVERSE 13" 
Market news /explanations - 
i74@ PRINT INVERSE 13" Up "3: PRINT " 
'-Price has risen" 
738 PRINT INVERSE 15" Down " PRINT " 
:-Price has fallen " 
1768 PRINT INVERSE 13" Hold "3: PRINT " 
:-Price unchanged": PRINT 
i?”7@ PRINT INVERSE 13" Suspended ": PRI 
NT "No dealing allowed": PRINT 
i78@ PRINT INVERSE 13" Takeover ": PRIN 
T "Shares automatically": PRINT "sold at 
price shown": PRINT 
i7v?@ PRINT INVERSE 13" Takeover suspend 
ed ": PRINT "Narrow escape! ": PRINT 
16568 PRINT INVERSE 1:3” Bankrupt ": PRIN 
T "Shares forfeited": GO SUB 7¢@ 
1819 CLS : PRINT INVERSE 13” 
rules "; PRINT 
15268 PRINT INVERSE 13;" Rate x% 
YT " Bank account increased": PRINT 
by x%" 
i838 PRINT " 
rest";: PRINT " 
rdraft)” 
i348 PRINT INVERSE 13" Suspended 
INT " No interest paid" 
1358 PRINT INVERSE 13" Fails"3: 
All money lost !"i PRINT " 
(New Bank arises "i PRINT " 
next turn)" 
i878 PRINT INVERSE 13" Profit and loss 
account": PRINT " Shows net"5: 
PRINT " gains and losses” 
1886 PRINT INVERSE 13" Portfolio": PRIN 
r = Shows shares held and 
Bank account” 
lees GO SUB 78: CLS PRINT INVERSE 15" 
News lashes” 


(If overdrawn, inte 
payable on ove 
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1998 PRINT INVERSE 15 "Tax bonus x%"i3i P 


RINT " Bank balance c 
redited" 

191@ PRINT INVERSE 13" Supertax x%"5: P 
RINT “ Bank balance d 
ebited"” 

1928 PRINT INVERSE 13" Metal bonus x%": 
PRINT " Bank balance 

credited "$ 
1938 PRINT "with incre 


ase in value": PRINT TAB 13; "of holdings 
1°4@ PRINT INVERSE 1:3 "Metal bonus issue 
"; PRINT TAB 133" Holdings increased "35 
1959 PRINT TAB 1435 "by 1 share for "i PR 
INT TAB 143 "every 18 held” 

1968 PRINT INVERSE 1:3 "The above items m 
ay be suspended” 

1978 PRINT INVERSE is; "at the last momen 
ti" 

1°75 GO SUB 728 

1°74 CLS 

1968 PRINT INVERSE 13" Market fails "3: 
PRINT " End of game": PRINT "-all"3 
1998 PRINT TAB Si "holdings sold at curre 
nt": PRINT TAB 15; "market price.” 


26988 GO SUB 76: CLS =: PRINT " You ar 
e now about to become” 

261i9 PRINT ” very rich or very poor. 
28928 PRINT ” But remember it’s only 
a game !''": GO SUB 79: GO TO 159 


3998 GO SUB 128: PRINT AT 3,8:t%: PRINT 
AT 4,943t$: PRINT AT 3,9;5t 

3@ig@ LET n=32: LET k=@: LET u=1 

3G15 FOR f=1 TO ao: LET v=ft 

3816 IF £331 THEN LET u=urtl 

3@17 IF #>31 THEN LET v=31 

3@1S IF *>288 THEN GO TO 3949 

392@ PRINT AT 4,n-vi INVERSE 13; BRIGHT 1 
jve(u TO Ff) 

3@21 BEEF .1,29 


2949 
SB41 
3842 


3859 


NEXT 
PAUSE 5a 
LET j=4 


LET veo" : 
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LET o=1: 


RETURN 


ROCKET ATTACK 


TIM WARD 
Original program by John Gooderson 


GENERAL DESCRIPTION 


in this exciting arcade-style game set in the near future, you are 
ie commander of Britain's defences against Russian nuclear 
inissiles. Your job is to fire your missiles at the incoming Russian 
nuclear missiles and destroy them in mid-air before they can 
\-ach the power stations and power lines that you are defending. 
‘I'he longer you last, the harder the game gets. 


NN  —. Tee 


DETAILED DESCRIPTION 
ea ieee eR Neer 
|ines50 Print instructions. 

100 Set background colour and clear screen. 

110 Set up variables. 

120 Set up user-defined graphics and arrays. 

900 Print bases. 

1000 Calculate number of bases randomly. 

1005-1020 Set up bases’ positions and print highscore. 

1021 Increment time counter. 

1025 Move missile(s) down screen. 

1026-1038 Move + up, down, right or left then print it. 

1039 Specify which base fire will come from. 

1040-1043 Set plot position of first remaining base. 

1046 If firing, draw your missile’s trail. 

1047 If missile misses, print a small explosion. 

1048 If missile hits, print a large explosion, and remove the 

destroyed missile from play. 

1049 Repeat loop from line 1026. 

1059 Randomly decide if missiles will be multiple warhead. 

1065 Create multiple warheads. 
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1066 If all missiles have been destroyed, speed the next Init 


up. 

1067 If you have survived 10 attacks, speed the missiles 11): jae POE eet se A 

1068 If you have survived 15 attacks then move the missiles! Ig27 REM enees poste rs oo ae ee 

stating pasitions 1@3@ IF INKEYS="Q" OR INKEY#="q 
: T LET *1=x1i-1 

1080 Repeat loop from line 1010. ee 


(O31 IF INKEYS="A" OR INKEYS="a" 
THEN LET X1=xXitl 
1932 IF INKEYS$="0" OR INKEYS$="0" 
THEN LET Yi=Yi-t 
33 IF INKEYS="P" GR INKEYS="p" 


1085 Missile has reached the ground so print an explosion 
1086 Check to see if the missile has hit a base. 

1091 Find position of first remaining base from the left. 
1095 If all bases are destroyed then end. 1 


2000 Increase the number of missiles. THEN LET YisYiti 

3000-3050 Another game routine. {G34 IF X1i>=19 THEN LET X1i=19 

3055 Update highscore. {9SH IF Mi<=2 THEN LET X1=2 

3100 Play the game again. {G36 IF ¥1>=31 THEN LET Y1l=31i 

4000-4030 Set up the user-defined graphics. {@37 IF Yis=1 THEN LET Yi=l ; 
. . * oo Hoe ao bor J x2 5 ae es 

5000-5890 Print the instructions. eS Pee ee eel, aT 


" ": REM FIRE CONTROL CURSOR 
(G3? LET MB=Xi: LET Y2=Vir REM $ 
ET FIRE FROM FIRST REMAINING BAS 
é 

1046 IF Yi¢iit AND B(8)=3 THEN L 
[fT S=a¢ 

{O41 IF Yi2viil AND Yi<i? AND B(14 
}=3 THEN LET S=107 

1942 IF ¥i>17 AND Y1<23 AND B(29 
1=3 THEN LET S=155 

{1943 IF ¥1323 AND B(26)=3 THEN 
LET $=203 

1944 REM FIRE 

1946 IF INKEY$="6" THEN PLOT 90 
VER 13 INK 235,8: DRAW OVER 13 
INK 23 (Y1¥8)-S, (28-K1)¥8: FOR L= 
1 TO 5S: BEEP .@1,25+L: NEXT L: P 
LOT OVER 1:5,8: DRAW OVER 13(¥ 
1¥8)-S, (20-M1}¥8: LET GAG=1 

ee oe ook TO ee EE a 1947 IF AS(Y1+1)=CHRS 32 AND GAG 
ND¥39)+2: LET -AS(NL)=CHR® 144 = Ne Hee ae Loris ENR Gee 


noe 
ig2a WEXT J 


HRS 148: BEEP .1,11: PAUSE 5: PR 
1ezi LET eet ee INT AT Mi, ¥1i" "1 LET GAG=@: REM 
pee VO 202 Feah AY Tae PRINT MINOR EXPLOSION IF TARGET 

MAS: PRINT AT J-1,93" 


MISSE 


GQ Ta ss8ge 
PAPER OG: BORDER 
LET KOUNT=8: 
LET TOP=@: LET W=6: 
V=8; LET TOT=8: LET $=59: 
ET GAG=@: LET Mi=19: LET Y1i=1i19¢: 
KE=KL> LET ¥Y2=7i 
GO TO 4890 
REM SET UP BASES AND ROCKET 
TACE 
Fae PRINT AT 21,83 INK 43 Ba 
ig@@e LET D=3: LET N=INT ( (RNDKIN 
T (P))+.5): IF N=& THEN GO To 1 
GOS 
igfGS LET W=9 
i@@6 PRINT AT 6,93 INVERSE 13 IN 
KR ITi"HIGH SCORE ";TOPR 
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1948 IF GAG=1 AND AS(Y1+1)<>CHRS 
32 AND Ki=J THEN PRINT AT X1,¥ 
13 INK 23 ERIGHT L3CHR® 148: BEE 
P .i.15: PRINT AT X1,Y15 INK 23 
BRIGHT is; CHRS 149: BEEF .1,18: L 
ET U=U+18e: LET W=Wtil: LET AS(Y1 
#1)=" ") LET GAG=6 

184° LET GAG=9: NEXT G 

igs? LET FLAG=INT (RND¥29)+4+1: IF 
INT (FLAG) /?7=FLAG/? AND N?3 AND 
J£iS THEN GO TO 19665: REM GENE 
RATE MULTIPLE WARHEADS 

igés GO TO 1846 

igéS LET TAG=INT (RND¥26)+4: IF 

45 (TAG) <>CHRS 32 THEN LET AS(TA 

G)=CHRS 145: LET AS#( TAG-2) =CHRS 
L455: LET AS(TAG+2)=CHRS 145: LET 
N=N4+1 

1@é6& IF W=N THEN LET D=1: REM $& 

PEED UP IF ALL MISSILES DESTROYE 

GB 

igéy’ IF KOUNT?19 THEN LET D=1: 

REM SPEED UP IF SURVIVED 1@+ ATT 

ACES 

igé6e@ IF KOUNT?i5 THEN LET At=AS 
(2 TO }+AS(i)2 LET D=2: REM MOVE 
MISSILES IF MORE THAN i5 ATTACK 

5 

19sse NEXT J 

igs3 PRINT AT 29,05" 

iss4 REM DETECT IF MISSILE HITS 

TARGET 

1965 FOR J=1 TO Bi: IF AS(I)<>CH 

R$ 32 THEN PRINT AT 21,3-15 INK 
2; BRIGHT 13 OVER 1I:sCHR® 146: B 

EEP .1,1ii: FAUSE S: FRINT AT 21, 

J-is INE 25 OVER 1Is;CHRS 149: BEE 

P .i,-15: PAUSE S: PRINT AT 21,49 

“is " "i LET VSV+Bi(J)*#i¢9 

1986 IF AS(J)4>CHRS 32 AND B(J)= 

3 THEN LET TOT=TOT+1: LET B(J)= 
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@: REM DETECTS IF ALL BASES DEST 


ROYED 

1998 NEXT J 

1991 FOR H=1 TO 31: IF B(H)=3 TH 

EN LET Yi=H-1: LET X1=19: GO TO 
1995: REM DETECTS FIRST SURVIVI 

NG BASE 

1g@?2 NEXT H 

1695 IF TOT=4 THEN GO TO 3999: 

REM END IF ALL BASES DESTROYED 
1198 LET AS( TO )=" " 

2996 LET P=P+.5: GO TO 1996: REM 
INCRESE NO OF MISSILES 

3008 PRINT #13AT 1,93; "PRESS ANY 
KEY FOR A REPLAY": IF INKEY#="" 
THEN GO TO 3980 

2058 PRINT #13AT 1,93" 

3@55 IF TOP<U-V THEN LET TOP=U- 
V 

3i@@ CLS : LET KOUNT=@: LET P=3: 
LET AS( TO )=" ": GO TO 9a 
4998 LET N=9: FOR J=1 TO N: READ 
A: FOR K=@ TO 7: READ B: POKE U 
SR CHR (A)+K,Bi NEXT K: NEXT J 
4Gi@ DATA 144,24,255,126,608,24,2 
4,24, 24,145,9,9,9,66,126,68,24,2 
4,146,16,16,16,16,56,124, 254,16 
4920 DATA 147,16,16,255,255,255, 
126,680,255, 148,9,68,126,255,255, 
126, 68,8,149, 162,164, 7,66, 36,145 
64,35 

4938 DATA 159,31,15,7,7,15,31,63 
255,151,245, 249, 224, 224, 246,248 
258, 255,152,36,69,36,49, 36,126, 
129,129 

4199 DIM BS(32): DIM B(32): DIM 
AS(3Z): DIM D&(32): DIM D(32) 
420@ LET C#=CHRS 15@+CHR# 151+CH 
R&S 147: FOR J=1 TO 31 STEP 2: LE 
T BS(J TO )=CHR® i52: LET B(J)=2 

NEXT J 
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4389 FOR J=46 TO 24 STEP 6: LET B 
$(J TO J+2)=C#: LET B(J)=1: LET 
B(J+1)=1:5 LET B(J+2)=3: NEXT J 
4498 GO TO 9eg 
S@e@8 PAPER 7: INK @: CLS : 
S19 PRINT AT @,73; INVERSE 13; BR 
IGHT 13" MISSILE ATTACK": PRINT 
S269 PRINT "YQU ARE THE COMMANDE 
R OF FOUR ANTI-MISSILE LASERS. 
YOU "2 PRINT "ARE DEFENDING THE 
POWER STATIONSAND POWER LINES F 
OR THE SOUTH OF” 
S308 PRINT "ENGLAND. YOU MAY DIR 
ECT FIRE BY MOVING THE CURSOR.": 
PRINT : PRINT " 1..Q=UP": PR 
INT " 2..A=DOWN": PRINT " 
3..P=RIGHT": PRINT " 4. .0Q=LEF 
T": PRINT ” 3..9=FIRE": PRINT 


3488 PRINT "WHEN ALL YOUR BASES 
HAVE BEEN DESTROYED THE GAME E 


NDS.": PRINT "YOU MAY PLAY AGAIN 

BY PRESSING ANY KEY.YOUR SCORE 

WILL STILL BE RETAINED" 

SS@@ PRINT #13AT 1,3; "PRESS ANY 
KEY TO CONTINUE": IF INKEY$S="" T 
HEN GO TO S55e@ 
S558 PRINT #13AT 1,93" 

"; CLS 


Sé68G PRINT "SCORING IS CALCULATE 
D FROM THE TOTAL NO OF MISSILES 
DESTROYED -": PRINT "THE NO OF 
YOUR BASES & STATIONS AND POWER 

LINES DESTROYED BYTHE ENEMY" 

S788 PRINT AT 8,43"ARE YOU USING 
C1] A B/W OR [217A COLOUR MONITO 

E. ‘e 

S758 IF INKEY#="1" OR INKEY$="2" 
THEN GO TO 5899 

S755 GO Ta 5758 

S6@@ IF INKEYS="1" THEN LET o=?7 
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LET I=@: LET M=1 
Ses@ IF INKEYS="2" 
+ LET I=7: LET M=6 
seeg Go Ta 1808 


THEN LET O=1 
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DAVID JONES 
Original program by M. Costello 


GENERAL DESCRIPTION 


Truth is a game to test your ingenuity. The computer picks out 
playing cards according to a certain rule, and your challenge is 
to work out which rule the computer is following. Ifyou manage to 
guess eight cards correctly according to the rule, the computer 
realises that you have divined its secret, and goes on to another 
game according to a different rule. In case you get too comi- 
placent, there are three levels of play to work up through. 


DETAILED DESCRIPTION 


Lines 10-130 Initialises variables. 
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140-240 Prints game rules and asks for level of play. 
260-631 Plays game till no cards left or player has made 
eight correct guesses! 

640-910 Picks random rule for basic level. 

920-1180 Picks random rule for intermediate level. 
1190-1370 Picks random rule for advanced level. 
1381-2340 Level 1,2,3 tests. 

2350 Input key routine. 

2360-2570 Prints cards on screen. Asks for guesses, and 
shows mistakes and correct answers. 

2580 End of game. Reveals rules. 

2590-2821 Validates input and prints messages to screen. 
2830-2991 Player has made eight correct scores. Prints 
score and plays again. 

3000-3200 Validates input. 

3290-3400 Sets up user-defined graphics. 


* This ‘program needs a 48K Spectrum 


REM TRUTH BY MIKE COSTELLO 
REM CONVERTED TO SPECTRUM 
REM FROM TRS-S@ ORIGINAL 
REM BY DAVID JONES 1983 
INK @: PAPER 6: CLS : BORDE 
R @: INPUT "": POKE 23658,8: POK 
E 23699, 28 
6@ PRINT "THIS IS THE GAME OF 
TRUTH. "’??’ "PLEASE WAIT A MOMENT 
78 GO SUB 3299 
ee DIM S#(13,4,2): DIM H(13,4) 
DIM T#(52,5): DIM US(52,5): DI 


I¢isS): DIM J(13):2 DIM M(4)5 DI 
VS(5,5): DIM W(4,3) 

78 GO SUB 2519 

3: LET C?PxX=8: LET C? 
=@: LET CMY=6: RANDO 


ig@ LET ML= 
Y=1: LET CMA 
MIZE 

11@ LET F=@: LET F@=G: LET Fi=4 

LET G=¢: LET Gé=¢ 

128 LET CT=S2: FOR A=1 TO 4: LE 
T S#CL,AI=H"A "5 LET S#(11,A)="J 
": LET S#(12,A)="Q "i LET S#(13, 
Al="K "i FOR B=2 TO 14: LET SS(B 
»sAl=STRS (B): NEXT B: NEXT A 

13@ FOR A=1 TO 4: FOR B=1 TO 13 
: LET H(B,A)=B: NEXT Bi NEXT A 

146 CLS : PRINT "TRUTH"? "This i 
s a card game where your task i 
s to discover the"’ "computers se 
cret rule. The"’ "computer will t 
ell you if your cards follow th 
2 rule or not.” 

15@ PRINT “If you lay &S cards w 
ithout any mistakes then the co 
mputer will think you have guess 
ed its rule.” 

166 PRINT ’"If you make a mista 
ke when you enter your cards yo 
uo Can erase your input by press 
ing SHIFT 7." 
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i7@ PRINT "To enter your card p 
ress"’"S for &, C for ¢ etc." 

189 PRINT ’"Level of play:" 

199 PRINT "1. Basic"’ "2, Inte 
rmediate"’ "3, Advanced"’’ "Pleas 
€ press 1,2 or 3"3 

299 GO SUB 2358 

219 IF 2$="1" THEN LET OS="Bas 
ic": GO SUB 649: GO TO 2648 

22@ IF 2$="2" THEN LET OS="Int 
ermediate”: GO SUB 928: GO TO 24 
gS 

238 IF 2$="3" THEN LET OS="Adv 
anced”: GO SUB L1?G: GO TO 2749 

248 GO To 298 
REM RETURN HERE WITH RULE 
CLS : GO SUB 2368: GO SUB 2 
LET C?=64: LET CM=32@: LET 
C3=8: LET Cé=6: LET K=@ 

2?@ LET ML=3: LET C=949: GO SUB 

55555) 

298 IF Z$="2" THEN GO TO 32998 

279 GO SUB 2668: IF CJ=1i THEN 
GO TO 2798 

398¢ GO SUB 35a 

Sig IF CT=8 THEN GO TO 2589 

329 IF K=8 THEN GO TO 283¢@ 

S39 FOR A=1 TO 3: LET M(A)=M(A+t 
1): NEXT A: LET M(4)=JT: GO To 2 
re 

3498 REM THE FOLLOWING ARE ALL S$ 
UBROUTINES 

359 IF CT=52 THEN LET E=1: GO 
TO 688: REM THE FIRST CARD IS AL 
WAYS RIGHT 

368 IF GC=i THEN GO 13596: 
GO TO 4689 

378 IF GC=2 THEN GO 1389: 
GO TO 49¢ 

389 IF GC=3 THEN GO 1419: 
60 Ta 46e6¢ 
3708 IF GC=4 THEN GO 1499: 


GO TO 49a 

4@@ IF GC=5S THEN GO 1519: 
GO TO 49¢ 

419 IF GC=6 THEN GO 1579: 
GQ TO 48¢ 

429 IF GC=7 THEN GO 1619: 
GO TO 689g 

439 IF GC=S THEN GO 1659: 
GO TO 468@¢ 

449 IF GC=9 THEN GO SUB 1699: 
GO TO 498¢ 

4598 IF GC=18 THEN GO SUB 1749: 
GO TO 699 

469 IF GC=11 THEN GO 17796; 
GO TO 499 

479 IF GC=12 THEN GO 18268: 
GO TG 499 

488 IF GC=13 THEN GO 18649: 
GO TO 6989 

49@ IF GC=14 THEN GO 19996; 
GO TO 469 

588 IF GC=15 THEN GO 1949: 
GO TO 46968 

518 IF GC=16 THEN GO 1769: 
GO TO 699 

528 IF GC=17 THEN GO 28965 
GO TO 64698 

53@ IF GC=18 THEN GO 2939: 
GO TO 4989 

D4@ IF GC=19 THEN GO 2989: 
Go TO 49¢ 

S5@ IF GC=28 THEN GO 2146: 
SG TO 488 

36@ IF GC=21 THEN GO 2138: 
GO TO 48¢ 

578 IF GC=22 THEN GO 2226: 
GO TO 4969 

388 IF GC=23 THEN GO 2298: 
GO TO 696 

3?8 IF GC=24 THEN GO 2328 
69@ IF E=1 THEN GO SUB 2428: G 
Q TO 629 


“doh hd 
iQ 


oO oh 
Q 


td 
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6i@ GO SUB 2588 

628 LET CT=CT-i: IF CT=8 THEN 
GO TO 25e8¢ 

4638 RETURN 

645 GO SUB 1349 

658 LET GC=INT (RND¥S)+1: IF GC 
78 OR GCtl THEN GO TQ 465¢ 

668 IF GC=1 THEN GQ 74g: R 
ETURN 

é7o8 IF THEN GQ Fos: R 
ETURN 

6eo IF 5 THEN GO 
ETURN 

67a IF THEN GO 878i 
ETURN 

7e@S IF THEN GO 88a: 
ETURN 

Pigs IF THEN GO $ B98: 
ETURN 

F2e IF THEN GO 989: R 
ETURN 

Paes IF THEN GO Pig: R 
ETURN 

P48 LET F#="card”": LET G#="colo 
ue"s LET H$=" different from": L 
ET IS=P%: LET J#=""i LET K$=""5 
RETURN 

75@ LET Fe="even": LET G#=PS: L 
ET H="odd": LET I$=8%: RETURN 
P68 LET L=INT (RND¥13)+1i: IF L> 
13 QR Lti THEN GO TO 749g 

77S LET AS=SH$(L,1): LET Li=L+é: 
IF Lizi4d4 THEN LET BS=SS(L1,1): 
GO TO FE 

768 LET Be=S$(L1-13,1): LET Li= 
Li-is 

Pee IF Li=13 THEN LET C#=S8(1, 
1): GO TO Sig 

66a LET C#=SH$(Li+1,1) 

Big LET L2=Li+é6é: IF L2¢<i4 THEN 
LET E#=S#(L2,1): GO TO 839 

620 LET ES=SH(L2-13,1): LET L2e= 
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LET F#=As+" to "+BS: LET GS 
=P$: LET H®=C$+" to "+E%: LET Is 
=5 

848 FOR A=1 TO 13: LET I(A)=8: 
LET J(A)=8: NEXT A: FOR A=1 TO ? 
: LET I¢A}=L: LET L=L+1: IF L=14 

THEN LET L=1 

259 NEXT A: FOR A=1 TO 46: LET J 
{Al=L:i LET L=L+i: IF L=14 THEN 
LET L=1 

868 NEXT A: RETURN 

878 LET FS="card":i LET GS="suit 
": LET H$="consistent with seque 
nce of: "3 LET IS=WH(4)+" "4WS(2 
+" MHWL)" "4WS(5) 4" "FWS (4) + 
© .eee "5 RETURN 

B68 LET Fs="card": LET G#="card 
": LET H#="consistent with ": LE 
T [%="sequence of: ": LET J#="2 
odd alternating with 2 even (fF 
irst 2 always right)": RETURN 

era LET FS="card”: LET G#="deno 
Mination”": LET HS="1 to 3": LET 

Is=" greater than”: LET JS=P$: R 
ETURN 

998 LET FR="card”": LET G#="deno 
mination": LET H$="1 to 3": LET 
Is=" less than”: LET JS=P$: RETU 
RN 

Sig LET Ft="red": LET GB="previ 
ous play": LET H#¥="mistake”": RET 
URN 

929 GO SUB 1349 

93@ LET GC=INT (RND¥1@)+1: IF G 
Cris OR GCt1 THEN GO TO 939 

S48 IF GC=1 THEN GO SUB 1@5¢: 
Go Ta 1849 

e5e@ IF GC=2 THEN GO SUB 18468: 
Go Ta is4e 

969 IF GC=3 THEN GO SUB 1978: 
GQ TO 1649 
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??S IF GC=4 THEN GO 1989: 
GO TQ 1946 
988 IF GC=5 THEN GO 1899: 
GO TO 1g4¢ 
999 IF GC=46 THEN GO 11966: 
GO TO ig4¢g 
ig@@ IF GC=? THEN GO SUB 1118: 
GO TO ig4¢g 
1gig@ IF GC=8 THEN GO SUB 1126: 
GO To 18496 
1g28 IF GC=9 THEN GO SUB 1176: 
GO TO ig4¢ 
ig3s@ IF GC=198 THEN GO SUB 1188 
194@ LET GC=GC+&S: RETURN 
1959 LET F#="card”": LET GS@=FS: L 
ET H$="consistent with ": LET Is 
="sequence of: "5 LET J#=WS(2)+" 
"WS (4) 4" "4WSCL) +" "4WS(5) 4" * 
+WH(2)4+" 1.22.2": RETURN 
1946@ LET FS="denomination": LET 
| GS=F2:2 LET H$="prime number": RE 
TURN 
ig?7s LET FS="suit": LET GS="it": 
LET H$="consistent with ": LET 
It="this rule: "+CHRS i3+"Divide 
"4P$+" by 4, "4+CHRS 13+"if the re 
Mainder = 3 play "+WS(4)4+CHRS 13 
t+"if = 2 play "4WS$(3)+CHRS 13+°7i 
* = 1 play "+W$(2)4+CHRS 13+"else 
Play "+WS(1}:i RETURN 
i1ge@ LET F#="red": LET GS=P$: LE 
T H$="even": LET I$=" and black 
is correct if "4+P$+" is odd": RE 
TURN 
1se8 LET FR="card": LET G#="deno 
mination": LET H®="4 to 6": LET 
Is=" greater than": LET J$=P$: R 
ETURN 
1198 LET F="card": LET G#="deno 
mination": LET H#="6 to 19": LET 
Is=" less than": LET JS=P$: RET 
URN 
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111@ LET F#="card": LET GS="suit 
or denomination": LET H$=" same 
as": LET I$=P$: RETURN 

1128 LET LS=INT (RND¥4): IF LS>3 
THEN GO TO 1128 
113@ LET Lé6é=L5: GO SUB 1149: LET 
LY=L5: GO SUB 1148: LET L&8=L5: 
GO SUB 114@: LET L9=L5: LET LS=L 
6: LET V#(2)=WS$(L5+1): LET LS=L? 
: LET VS(3)=WS(L5S4+1)5 LET LS=Ls: 
LET V#(4)=WS(L54+1): LET LS=L9: 
LET V$(S)}=WS(L5+1): GO TO 1169 
114@ LET LS=L5+i: IF L5>3 THEN 
LET LS=@ 

1158 RETURN 
1168 LET F#="even denomination”: 
LET G#=PS$: LET H#=V$(2)+" or "+ 
VB(3B)4+" and "i LET Is="odd denom 
ination correct if "+P$+" is "+¥V 
$(4)4+" or "4V$(5): RETURN 
Li7G@ LET F#="black": LET G#="pre 
vious play": LET H#="mistake”": L 
ET Is=" ": LET J#="": LET K#="re 
d"i LET LS=G$: LET M$="correct": 
RETURN 
11898 LET F#="card": LET GS="deno 
mination": LET H$="within range 
2 less than or 2 more than"+PS 
: RETURN 
11°98 GO SUB 1349 
12409 LET GC=INT (RND¥6) +1: IF GC 
>6 GR GC<1i THEN GO TO 1286 
121@ IF GC=1 THEN GO SUB 128¢: 
GO TO 12768 
1228 IF GC=2 THEN GO SUB 1298: 
GO. TO 1279 
1238 IF GC=3 THEN GO SUB 139886: 
GO TO 127¢ 
i248 IF GC=4 THEN GO SUB 1318: 
GO TO 127¢ 
i258 IF GC=5 THEN GO SUB 1326: 

GO TO 1279 


1266 IF GC=6 THEN GO SUB 1339 
1276 LET GC=GC+18: RETURN 
1288 LET FS="even": LET GS=P$: L 
ET H$="sSame colour as": LET IS$=P 
S+"but one": LET Js=""2 LET K#=" 
odd": LET L$=P%: LET M$="differe 
nt colour from": LET NS=P$+"but 
one": RETURN 
L29@ LET FS="A to 7": LET G#=P$+ 
"But 2": LET H®="black"”: LET I= 
"") LET J#=""3 LET K#="68 to K": 
LET L@=P$+"but 2": LET M$="red": 
RETURN 
1398 LET FS="even": LET Gt="prev 
ious play But 3": LET H$="correc 
£"> LET Is=""5 LET Js=""s LET KS 
="odd": LET L$=G$: LET M$="mista 
ke" RETURN 
i318 LET FS="every third card”: 
LET G$="it": LET H#="consistent 
with sequence of: "i LET It=WS(2 
PH" MEWS CLD +" "WS (4) 4" "4WS(3) + 
" "4WE(2)4+" 2...273 LET J$="(othe 
r cards are always right)": RETU 
RN 
1328 LET F#="court card”: LET GS 
=P$: LET H#="not "4+F$: LET IS=a5 
RETURN 
LET F#="red":i LET G#=" tota 
of mistakes": LET H$=" greater 
than or equal to": LET Is=" tot 
alo of correct cards”: LET J$=""; 
LET K#="black"!: LET LS=I$: LET 
MS=" greater than": LET NS®=G$: R 
ETURN 
1348 LET F#=""i LET GS="": LET H 
s=""> LET Is=""5 LET J#="" LET 
He="" > LET LS=""s LET MS=""5 LET 
NS=""] RETURN 
1358 LET E=8: IF (F=8 OR F=3) AN 
D ({HS=1. OR HS=2) THEN LET E=1: 
RETURN 
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1368 IF (F=1 OR F=2) AND (HS=8 0 

R HS=3) THEN LET E=1 

1378 RETURN 

1388 LET E=@: LET L=1: POKE USR 

"e",L: POKE USR "£"4+2,G: RANDOMI 

ZE USR USUB: IF G=PEEK (USR "£"+ 

2) THEN POKE USR "@£",L: POKE US 

R "£"4+2,HD: RANDOMIZE USR USUB: 

IF HD<>PEEK (USR "£"+2) THEN LE 

T E=1:i RETURN 

1398 POKE USR "£",L: POKE USR "& 

"+42,HD: RANDOMIZE USR USUB: IF H 

D=PEEK (USR "£"+2) THEN LET E=1 

1499 RETURN 

14i9 LET E=@: FOR A=1 TO 13: IF 

I¢(A)=G THEN GO TO 1434 

1428 NEXT A: GO TO 145¢ 

1438 FOR A=1 TO 13: IF J(A)=HD T 

HEN LET E=1: RETURN 

i449 NEXT A: RETURN 

145@ FOR A=i TO 13: IF J(A)=G TH 

EN GO TO 1476 

1468 NEXT A 

1478 FOR A=1 TO 13: IF I¢(A)=HD T 

HEN LET E=1: RETURN 

1488 NEXT A: RETURN 

149°@ LET E=@: IF (F=3 AND HS=1) 

OR (F=1 AND HS=@) OR (F=@ AND HS 
OR (F=2 AND HS=3) THEN LET 


RETURN 
IF CT=51 THEN LET E=1: RET 


LET LC=1i: LET L=1: POKE USR 
»L: POKE USR "£"+2,HD: RANDO 
MIZE USR USUB: IF HD=PEEK (USR " 
£"+2) THEN LET LC=% 
i52@ LET LF=1: POKE USR "£",L: P 
OKE USR "£"4+2,G: RANDOMIZE USR U 
SUB: IF G=PEEK (USR "£"+2) THEN 
LET LF=¢ 
iS4@ LET L@=1: POKE USR "£",G98: 
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POKE USR "£"+2,L: RANDOMIZE USR 

USUB: IF GS@=PEEK (USR "£"+2) THE 
N LET Le=a 

i558 LET E=@: IF (LC=1 AND LF=¢ 

AND LS=8) OR (LC=i AND LF=1 AND 

L@=9) OR (LC=@ AND LF=i AND Lg@=1i 
} OR (LC=@ AND LF=@ AND L@=1) TH 
EN LET E=1i 

1546 RETURN 


is’¢ LET GT=G: IF G=13 THEN LET 


i5ee LET E=@: FOR A=1 TO i3: LET 
I(A)=98: NEXT Ai FOR A=1 TO 3: L 
ET I(A)=GT+1: LET GT=GT+1: IF GT 
=13 THEN LET GT=06 
i598 NEXT A: FOR A=1 TO 3: IF I¢ 
Ad=HD THEN LET E=1: RETURN 
1688 NEXT A: RETURN 
i6ig@ LET GT=G: IF G=1 THEN LET 
GT=14 
1628 LET E=@: FOR A=1 TO 13: LET 
I(A)=G: NEXT A: FOR A=1 TO 3: L 
ET I¢(A)=GT-1: LET GT=GT-1: IF GT 
=1 THEN LET GT=14 
i639 NEXT A: FOR A=1 TO 3: IF I¢ 
A)=HD THEN LET E=1: RETURN 
16498 NEXT A: RETURN 
165@ LET E=@: IF HS=@ GR HS=3 TH 
EN LET E=1: RETURN 
1649 IF M(4)=1 THEN LET E=1 
1478 RETURN 
16488 REM END OF LEVEL 1 TESTS 
i6?@ LET E=@: IF (F=1 AND HS=3) 
THEN LET E=1i: RETURN 
-lrPg@e IF (F=3 AND HS=@) THEN LET 
E=1: RETURN 
i7vig IF (F=8 AND HS=2) THEN LET 
E=i1:; RETURN 
LP28 IF (F=2 AND HS=1) THEN LET 
E=1 
1738 RETURN 
iv4@ FOR A=1 TO 13: LET I(A)=9: 
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NEXT A: FOR A=1 TO 3: LET I(A)=A 

+i: NEXT A: LET 1(4)=5: LET I(5) 

=7: LET I(46)=11: LET I(7)=15 

1758 FOR A=1 TO 7: IF HD=I(A) TH 

EN LET E=1: RETURN 

174648 NEXT A: LET E=8: RETURN 
1778 IF (G=46 OR G=1@) AND (HS=2) 
THEN LET E=1: RETURN 

1789 IF (G=5 OR G=? OR G=13) AND 
(HS=1) THEN LET E=1: RETURN 
i799 IF (G=? GR G=11) AND (HS=3) 
THEN LET E=1: RETURN 

18@@ IF (G<5 OR G=8 OR G=12) AND 
(HS=9) THEN LET E=1: RETURN 

1619 LET E=@: RETURN 

1828 LET L5=@: LET L=1: POKE USR 
"E£",G: POKE USR "£"+2,L: RANDOM 
IZE USR USUB: IF G=PEEK (USR "£" 

+2) THEN LET LS=1 

18398 IF (HS=1 GR HS=2) AND (L5=@ 
) THEN LET E=1: RETURN 

1849 IF (HS=@ OR HS=3) AND (L5=1 
) THEN LET E=1: RETURN 

18598 LET E=@: RETURN 

1869 FOR A=1 TO 13: LET I‘(A)=98: 

NEXT A: LET Li=G+4: IF Li>is THE 

N LET Li=Li-is 

i878 FOR A=1 TO 3: LET I(A)=L1: 

LET Li=Li¢i: IF Li>isS THEN LET 

Li=1 

1ise@ NEXT A: FOR A=1 TO 3: IF HD 

=I(A) THEN LET E=1: RETURN 

i8s9°@ NEXT A: LET E=8: RETURN 
i¢@@ FOR A=1 TO 13: LET I(A)=: 

NEXT A: LET Li=G-8: IF Li<i THEN 
LET Li=Litis 

igig@ FOR A=1 TO 3: LET I‘(A)=L1: 

LET Li=Li-i: IF Li<i THEN LET L 
1=13 

1928 NEXT A: FOR A=1 TO 3: IF HD 

=I(A) THEN LET E=1: RETURN 

1938 NEXT A: LET E=@: RETURN 
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ig4@ IF HS=F GR HD=G THEN LET E 
=1: RETURN 
1?59 LET E=9: RETURN 
1769 LET L=1:i POKE USR "£",L: PO 
KE USR "£"4+2,HD: RANDOMIZE USR U 
SUB: IF HD=PEEK (USR "£"+2) THEN 
LET L=6 
igra@ IF (L=@8 AND F=LS) OR (L=8 A 
ND F=L?) THEN LET E=1: RETURN 
i?eeg IF (L=1 AND F=L4é) OR (L=1 A 
ND F=L?7) THEN LET E=1: RETURN 
i??S LET E=9: RETURN 
28698 IF (HS=@ OR HS=3) AND M(4)= 
1 THEN LET E=1: RETURN 
(HS=i1 OR HS=2) AND M(4)= 
LET E=i: RETURN 
LET E=@: RETURN 
FOR A=1 TO 13: LET I(A)=8: 
A: LET Li=G-2: FOR A=1i TO 5 
Li<il THEN LET Li=Li+tiz 
LET I(A)=L1i: LET Li=Li+i: I 
F Li>i3 THEN LET Li=1 
2@58 NEXT A: FOR A=1 TO 5S: IF HD 
=I(A) THEN LET E=1: RETURN 
29698 NEXT A: LET E=@: RETURN 
28798 REM END OF LEVEL 2 TESTS 
2926 IF CT>S@ THEN LET E=1i: RET 
URN 
2998 LET L=1: IF (F=@ OR F=3) AN 
D (FS@=@ OR FS=3) THEN POKE USR 
"E£",Li PORE USR "£"°+2,HD: RANDOM 
IZE—E USR USUB: IF HD{>PEEK (USR " 
£"+2) THEN LET E=1: RETURN 
Zig@ IF (F=1 OR F=2) AND (F@=1 O 
RO oF@=2) THEN POKE USR "£",L: PO 
KE USF "£"4+2,HD: RANDOMIZE USR U 
SUB: IF HD<>PEEK (USR "£"+2) THE 
N LET E=1: RETURN 
2lig IF (F=8 OR F=3) AND (Fe@=1 O 


R F@=2) THEN POKE USR "£",L: PO 
KE USR "&£"+2,HD: RANDOMIZE USR U 
SUB: IF HD=FPEEK (USR "“£"4+2) THEN 
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LET E=i: RETURN 
Piz@ IF (F=1i1 OR F=2) AND (FO=0 0 

R F@=3) THEN POKE USR "£",L: PO 
KE USR "£"4+2,HD: RANDOMIZE USR U 

SUB: IF HD=PEEK (USR "£"+2) THEN 

LET E=1i: RETURN 

21i3@ LET E=8: RETURN 

Fi4@ IF CT>49 THEN LET E=1: RET 
URN 

2i5@ IF (Fl=@ OR Fi=3) AND HD<8 
THEN LET E=1: RETURN 

216@ IF (Fi=1 OR Fi=2) AND HD>? 
THEN LET E=1: RETURN 

2i78 LET E=8: RETURN 

2718@ IF CT?}48 THEN LET E=1: RET 
URN 

2198 LET L=1: POKE USR "£",L: PO 
KE USR "£"+2,HD: RANDOMIZE USR U 
SUB: IF HD=PEEK (USR "£"+2) AND 
M(i)=1 THEN LET E=1: RETURN 
2260 POKE USR "£",L: POKE USR "& 
"+2,HD: RANDOMIZE USR USUB: IF H 
D<oPEEK (USR "£"+2) AND M(1)=2 T 
HEN LET E=1: RETURN 

2219 LET E=@: RETURN 

2228 LET E=i: IF CT>49 THEN RET 
URN 

2739 IF C5S<>3¥INT (C5/3) THEN R 
ETURN 

22748 IF HS=@ AND Fil=1 THEN RETU 
RN 

225@ IF HS=3 AND Fl=@ THEN RETU 
RN 

2260 IF HS=2 AND Fi=3 THEN RETU 
RN 

2279 IF HS=1 AND F1i=2 THEN RETU 

RN 
228@ LET E=@: RETURN 

2296 IF HD>1@ AND G<il THEN LET 
E=1: RETURN 

23am IF HD<ii AND G?1S THEN LET 

E=1: RETURN 
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3198 LET E=8: RETURN 
S2@ IF C4&>=C5S AND (HS=1 OR HS=2 
} THEN LET E=1: RETURN 
2338 IF C4é<CS AND (HS=@ OR HS=3) 
THEN LET E=1: RETURN 
2349 LET E=8: RETURN 
2358 PAUSE @: LET ZS=INKEYS: RET 
URN 
2369 PRINT "CORRECT"’’’’? "MISTAK 
ES"??? 77 "*vOUR HAND": PRINT AT 19? 
2:85 "Give suit and denomination o 
the card you want to play: " 
PRINT #153: RETURN 
2378 PRINT AT 11,983 ""3: FOR B=1 
TO 4: PRINT WS(B): FOR A=1 TO 13 
: PRINT S#(4,B)5: IF S#(A,B)="198 
" THEN PRINT " "3 
2338 NEXT A: PRINT : NEXT B: PRI 
NT AT 26,275 ""5i RETURN 
23°96 PRINT AT 1,945""5: FOR A=1 T 
QO S52: PRINT T#(A)3: NEXT A: PRIN 
T AT 3,93 "MISTAKES"3: RETURN 
2498 PRINT AT 6,835 ""3: FOR A=1 T 
QO S32: PRINT US(A):: NEXT A: PRIN 
T AT 18,06; "YOQUR HAND";: RETURN 
24198 GO SUB 2379: RETURN 
24298 INPUT ""; PRINT #15 FLASH 1 
5FSi "correct *¥"3: PAUSE 5S@: INPU 
TO"":) PRINT #135 %s3 
243G PRINT AT C?PY,CPXEWS(HS+1)55 
SCHD,HSt+1)¢1 TO 2): IF C?X>28 TH 
EN LET CYX=8: LET C?PY=CPY+1: GO 
TO 24649 
244@ IF HD=18 THEN LET C?XKX=C?7X+ 
4: GO TO 244g 
2458 LET C?PRK=CPRK+S 
2469 LET 2$=S#$(HD,HSt1)(1 TO 2): 
LET S#(HD,HS+1)=""i PRINT AT HS 
K2+i12,035""3:3 FOR A=1 TO 13: PRIN 
T S#(A,HS+1)3: IF A=1a THEN PRI 
NT " "5 
2478 NEXT A: PRINT AT 20,275 ""5 
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2488 LET TS(CS+1)=WS(HSt1)4+2Z9: L 

ET C5=C5St1i: LET Fi=Fa: LET FO@=F: 
LET G@=G: LET F=HS: LET G=HD: L 

ET 3JT=2: IF CT=52 THEN RETURN 

24°98 LET K=K+1: RETURN 

259@ INPUT "": PRINT #15 FLASH 1 
3RS3"a mistake ¥"3: PAUSE 5@: IN 

PUT ""s PRINT #15 X%%5 

2519 PRINT AT CMY, CMXsSWS(HS+1)55 

$S(HD,HSt+1)¢1 TO 2): IF CMX>28 TH 
EN LET CMX=@: LET CMY=CMY+1: GO 
TQ 25498 

2528 IF HD=18 THEN LET CMX=CMX+ 

4: GO TO 2549 

23539 LET CMX=CMxX+3 

2549 LET Z2$=SS(HD,HS+1)(1 TO 2): 
LET S#(HD,HS+1)=""i PRINT AT HS 

¥2+12,903""3: FOR A=1 TO 13: PRIN 

T S#(A,HS+1)35: IF A=18 THEN PRI 

NT " "5 

235598 NEXT A: PRINT AT 28,275 ""5 

2569 LET US(C464+1)=WS(HS+1)4+29°5 L 

ET Cé6é=Céti 

2579 LET K=8: LET JT=1: RETURN 
25386 CLS : PRINT "Sorry, you hav 

® played all of your cards so 
I must now reveal the rule:" 

25°9 GQ SUB 265¢@: GO TO 2388¢ 
2698 LET CJ=4: LET 2$=Y#(1 TO 1) 
: IF 2£$="S" OR Z2$="H" OR z2H="D" 
OR 2$="C" THEN GO TO 2420 

2618 GO Ta 23899 

2624 IF Z$="S" THEN LET HS=@: G 
ao TO 2669 

24638 IF Z$="H" THEN LET HS=1: G 
O TO 26449 

264@ IF Z$="D" THEN LET HS5=2: G 
Oo TQ 24669 

26598 LET HS=3 

27668 LET Z$=Y#(2 TO 2): IF Z28<>" 
i” THEN IF LEN Y$=3 THEN GO TO 
289s 
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2678 IF £26¢>"1" AND LEN Y#=3 THE 
N GO TO 2és8¢ 

2688 IF 284>"1" THEN GO TO 2719 
2678 IF LEN Y$<>3 THEN GO TO 28 
ae 

279@G IF YS (LEN YS TO LEN Y#)<>"@ 
" THEN GO TO 2888 

271g LEN Y$=3 THEN LET HD=1¢@ 


THEN LET HD=1: G 


Ooh 


tJ 
“d 
GW 4 


IF 2$="J" THEN LET HD=11: 
GO TO 278¢ 
2748 IF 2$="Q" THEN LET HD=12: 
GO TO 2788 
273508 IF £%="K" THEN LET HD=13: 
GO TO 273g 
2768 IF 2$<"2" OR 24>"9" THEN 6G 
TO 2869 
7@ LET HD=VAL £5 
IF H(HD,HS+1i)=@ THEN GO TO 
fe: REM NOT HOLDING THAT CARD 
@ LET H(HD,HS+1)=8: RETURN 
Bea INPUT ""2 PRINT #135 FLASH 1 
"There is no such card! !="5: PAU 
igs: INPUT "" PRINT #15 *$3: 
LET CJ=1: GO TO 388d 
2e18 LET WH(1)=CHRS (16) +CHRS (98 
}4"H"2 LET WS(2)=CHRS (16) +4+CHRS 
2r+"O"s LET W$(3)=CHRS (146)+CHR 
$ (2)4+"A"? LET WS(4)=CHRS (16)4+C 
HRS (9)4+"C"2 LET K$="To give up 
press: = " 
2220 LET P=" last correct card” 
>: LET @$=" and vice versa": LET 
R#="*% That card is "i RETURN 
2239 CLS : PRINT "Well done! Wit 
fh 8 corect cards in a row, you 
have worked out the secret rul 
e (unless you’re just lucky). T 
he rule is i" 


Wo bh) bl 


m 
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848 GO SUB 285@: GO SUB 2979: G 
TO 28080 
2858 PRINT ’°F#3" is correct only 
if"’GS’ "is "SHS; IS’ IS 
2869 IF KS>"" THEN PRINT "and"’ 
is correct only if "’L#5" is 


68 PRINT AT 29,985 "To play agai 
mn type: G"’ "To see the cards aga 
in type: D"5 
2899 GO SUB 2350: IF Z2%="G" THEN 

GO TO 32498 
2998 IF Z2$="D" THEN CLS : LET C 
?X=G: LET C?7Y=1: LET CMX=@: LET 
CMY=6: GO SUB 2349: INPUT "": PR 
INT AT 19,05" 

To play again type: 
G "? "To see the rule again 
type: R"5: GO SUB 239@: GO SUB 
249G: GO SUB 2419: GO TO 2929 
2918 GO TO 2899 
2924 GO SUB 2358: IF Z%="G" THEN 

GO TO 32469 
2938 IF 28<>"R" THEN GO TO 292¢ 
2949 CLS : GO SUB 235¢ 
2959 IF K<>8 THEN GO TO 288g 
2968 GO SUB 2979: GO TO 2500 
27798 LET Li=44-Cé 
2984 LET D1=((CT/43) + (L1/44) ) ¥5¢ 
29°99 PRINT AT 15,195"S C OR E"™’ 
"Cards in hand = "§CT’ "Mistakes 

"sC6’ "Final score: "sD1’" ("30% 

game)": RETURN 
3998 LET Y¥Ys="" 
SA@is LET 2H="": IF Y#="" THEN P 
RINT AT 26,275" "SAT 20,275" 


38268 GO SUB 2359 

39398 IF Zs="Z" THEN RETURN 

3949 IF Z2$="." AND LEN Y%<2 THEN 
GO TO 3919 
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2859 IF Z26="." THEN RETURN 
39608 IF “2$=CHRS &S AND Y#="" THEN 
GO TO 38198 

3878 IF Z$=CHRS 8 AND YS<>"" THE 
N LET Ys=Y$(1 TO LEN Y#-1): GO 
TO 3119 

39828 IF Z£S=CHRS 13 THEN GO SUB 
S188: GO TO 3ee@¢ 

3879 IF £$<CHRS 32 THEN GO TO 3 
55555) 

3199 LET YS=Ys+25 

Sil@ IF 2$="S" THEN PRINT WS(1) 
5" "3: GO TO 31649 

S3i2g IF “2$="H" THEN PRINT WS(2) 
'" "33 GO TO 3169 

Sis@ IF Z$="D" THEN PRINT WS(3) 
3" "3: GO TO 3168 

314@ IF 2¢="C" THEN PRINT W#(4) 
5" "$i GO TO 3169 

S158 PRINT 235 

3169 IF LEN YS<=ML THEN GO TO 3 
Gig 

3178 INPUT "" PRINT #15 FLASH 
3"Too many characters"5;: PAUSE 1 
@0: INPUT "" PRINT #15X$3: GO T 
0 3969 
3188 INPUT "": PRINT #13 FLASH 1 
i"Press ’.’ to play - not ENTER” 
3: PAUSE 189: INPUT "": PRINT #1 
3*%$5 2 RETURN 


Ji?8 PRINT #153 FLASH 1; "You are 
not holding that card! "3: PAUSE 
ig@: INPUT ""s PRINT #1383: LET 
CJ=1: RETURN 


32808 CLS : PRINT "If you are sur 
€ you want to giveup the attempt 
to guess the Secret rule, h 
it ENTER to see what the rule 
is. Otherwise press any othe 
r key to return tothe game.” 
32198 GO SUB 2359: IF Z$=CHR#S 13 
THEN CLS : PRINT "The secret ru 
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le isi-": GO SUB 2859: GO TO 286 
@ 
3229 LET $S$1=C?7X: LET SS2=C7Y: L 
ET SS3=CMX: LET SS4=CMY 
3238 LET C7X=8: LET C7Y=1: LET C 
MX=@: LET CMY=6 
3248 CLS : GO SUB 2369: GO SUB 2 
399: GO SUB 249G: GO SUB 2419 
32598 LET C7X=SS1: LET C7Y=SS2: 
ET CMX=SS3: LET CMY=SS4: GO TO 
7B 
3269 FOR A=1 TO 52: LET TS(A)="" 
: LET US(A)="": NEXT A: FOR A=1 
TO 13: LET I(A)=@: LET J(A)=@: N 
EXT A: FOR A=1 TO 4: LET M(A)=@: 
NEXT A: GO TO 199 
3278 PRINT INK 23"4 "§ INK 93 
"B "3 INK @3”" "3; INK 23° 
328g STOP 
3298 FOR i=@ TO 31: READ byte 
3398 POKE USR "A"+i,byte: NEXT i 
331G DATA G,8,28,62,127,62,28,8 
-332@ DATA G,8,28,62,62,42,8,28 
333G DATA G, 28, 28,197,127,197,8; 


L 
2 


334G DATA G,34,119,127,127,62,28 


LET USUB=USR "F" 
3369 FOR A= TO 24: READ byte 
3379 POKE USUB+A,byte: NEXT A: R 
ETURN 

338G DATA 245,197, 229,42, 123,92, 
6,32,35,16 

339O DATA 253,126,35,35;708,176,1 
19,225,193, 241 

349G DATA 281 

3419 RANDOMIZE USR 64999 

9999 REM 18 18 19 9999 
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Although seemingly borrowed straight from the arcades, this 
game relies more on strategy than on quick reactions. You travel 
around the track, eating dots and try to avoid the enemy car 
travelling in the opposite direction. The control keys are very 
simple... ‘O' moves you OUT by one lane and ‘I’ moves youIN one 
lane. When the car collides with you, your score is given for the 


_ STEVE BROCKBANK 
Original program by D. Denholm 


GENERAL DESCRIPTION 


game, depending upon the number of dots you have eaten. 


-]{ TT SFSSSSSSSSSSSSshshFeFeseseSF 


DETAILED DESCRIPTION 


Lines 10-375 Initialisation. 
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380-440 Countdown to start of game. 
470-575 Move enemy car. 

580-745 Move player. 

810-840 Player and enemy car collide. 
850-910 Print the score and ask Another go? 
940-1200 Print out the playing track. 
2000-2130 Print the instructions. 


3000-3560 Set up the user-defined graphics characters. 


4000-4100 Subroutine command which allows the 
SCREEN$ command to recognise user-defined graphic 
characters. 


i@ DIM p(4): DIM m(4) 
15 POKE 23458,¢@: REM **1lower c 
ASEX*K 

?P@ LET score=@: LET total=8: L 
ET dot=4: LET mmove=6: LET pmove 
=8: LET plus=d 

is@ GO SUB 23969 

259 GO SUB 2980 

258 GO SUB 948 

Z6@ LET p(id=3: LET p(2)=16: LE 
T px=l: LET py=9 

365 LET m(i)=3: LET m(2)=14: LE 
T mx=-i: LET my=9 

3768 INK 1: PRINT AT p(t),p(2)5" 


375 INK 2: PRINT AT m(i),m(2)35" 


38@ INVERSE 1: PRINT AT 21,835" 
N YOUR MARKS ! " 

39@ PAUSE 598: BEEP .5,.5 

488 PRINT AT 21,835" GET SET. 
1 au 

41@ PAUSE 5@: BEEP .5,1 

424 PRINT AT 21,85" Go ! 
425 PAUSE 58: BEEP .5,2 
43@ INVERSE @ 
449 PRINT AT 21,985" 
476 REM ¥ move missile * 
486 LET y=m(1l)4+my: LET x=m(2) +m 


x 


4°88 GO SUB 4899 

495 IF sc=@ THEN GO TO 525 

59@ IF sc=1 AND mmove=1 THEN L 
ET plus=1: GO TO 539 

5@5 IF sc=i THEN LET dot=i: GO 
TQ 5498 
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sigs IF sc=2 THEN LET temp=my: 


LET my=-mx: LET mx=temp: LET mmo 


ve=8: GO TO 486¢ 
5326 IF sc=9 THEN GO TO 819 


S25 IF mmove=8 THEN LET mmove= 


i: GO Ta S546 
S38 LET m(3)=y¥: LET m(4)=x 


S35 LET y=m(1)4+mx: LET x=m(2) +m 
y: GO SUB 4998: IF sc=@ THEN 6a 


TO 73g 


S45 LET y=m(i)-mx: LET x=m(2)-m 
y: GO SUB 4999: IF sc=@ THEN G60 


TQ 7398 
358 LET y=m(3): LET x=m(4) 
S68 PRINT AT m(1),m(2)3" " 


562 IF dot=2 THEN INK @: PRINT 


AT m(1),m(2)5 "6": LET dot=¢ 
364 IF plus=1 THEN LET dot=1: 
LET plus=9 

S65 INK 2: PRINT AT y,x3"A4" 
367 BEEP .@1,9 


S78 LET m(il)=y: LET m(2)=x 
375 LET dot=dot+dot 

389 REM * move Player * 

619 LET d#=CHRS (PEEK (23569) ) 
615 POKE 23549,9 


626 LET y=p(i)+tpy: LET x=p(2)+p 
x 


659 GO SUB 4g9a 
635 IF sc=@ THEN GO TO 662 
637 IF sc=1 AND pmove=1 THEN L 
ET plus=1: GO TO 665 
649 IF sc=i THEN GO TO 696 
6598 IF sc=2 THEN LET temp=py: 
LET py=px: LET px=-temp: LET pmo 
ve=$: GO TO 4629 
66@ IF sc=? THEN GO TO 81g 
662 IF pmove=@ THEN LET pmove= 
i: GO Ta 496 
665 IF dS<>"i" AND d#<>"o" THEN 
GO TO 699g 
678 LET p(3)}=y: LET p(4)=x 
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672 IF d#="0" THEN GO TO 485 

675 LET y=p(i)+px: LET x=p(2)-p 
y: GO SUB 4@99: IF sc=@ THEN LE 
T y=y+px: LET x=x-py: GO TO 699 

68@ LET y=p(3): LET x=p(4): GO 
TO 696 

685 LET y=p(il)-px: LET x=p(2)+p 
y: GO SUB 499@: IF sc=@ THEN LE 
T y=y-pxi LET x=xtpy: GO TO 499 

4687 LET y=p(3): LET x=p(4) 

498 PRINT AT p(lt),p(2)5" " 

692 IF sc=1 OR plus=1 THEN LET 

score=scoretig@: BEEP .92,-3: LE 
T plus=6@ 

695 INK i: PRINT AT y,x3"P" 

6°7 BEEF .@1,¢ 

7@8 LET pt(il=y: LET p(2)=x 

716 IF score>127@ THEN LET tot 
al=total+score: LET score=8: GO 
SUB S7¢ 

726 GO TO 4728 

73@ IF RND<.6 THEN GO TO 55¢ 

725 LET plus=6 

74@ IF RND<.5S THEN LET y=y¥tmx: 

LET x=xtmy: GO TO 549 

745 LET y=y-mx: LET x=x-my: GO 
TO 569 

818 REM *#*# crash ###X 

B29 PRINT AT p(l),p(2)5" " 

625 PRINT AT m(1),m(2)5" " 

83@ FLASH 1: PRINT AT yaxi" "5 
PRINT AT 11,953" CRASH !!! "Ss F 
LASH @ 

S48 LET bord=3: FOR n=4698 TO -6¢ 

STEP -2: BEEF .@1,n: LET bord=?7 
-bord: BORDER bord: NEXT n: BORD 
ER 3 

65@ BORDER 5: INK 1: PAPER 7: C€ 
LS 

655 LET total=total+score 

668 PRINT AT 2,55 "You scored "j 
totals” points” 
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B79 PRINT AT 5,55 "by hitting "5 
INT (total/19)5" targets” 

686 PRINT AT 12,983 "Do you wish 
to play again? (Y/N)" 

89S LET yS=INKEYS: IF y$="" THE 
N GO To 89g 

8°53 IF yS="y" OR yS="Y" THEN R 
UN 

POS IF »yS<>"n" AND yS<>"N" THEN 

GO TO 899g 

P18 CLS : PRINT AT 12,123 "GOODB 
YE!" PAUSE @: GO TO 919 

P49 REM X¥# track ¥#* 

945 REM * N.B. letters in follo 
wing PRINT statements are in gra 
phics mode ¥ 

930 INK 4: PRINT "I. 

E CHASE O...o0ut" 

?698 PRINT 


978 INK @: PRINT AT 2,83 "CAAAAA 


ARAAARAAAAAAAAAARAAAARAAAAB" 
788 PRINT AT 3,9:;"8 GG 6666 
GG66666 6 8" 
999 PRINT AT 4,95 "BGCAAAAAAAAAA 
AA AARAAAAAAAAADGE" 
ig@@ PRINT AT 3,46;5"8 BGEGGEE 
G6G666 66 B BR" 
1g1@ PRINT AT 6,053 "BGBGCAAAAAAAA 
AA AARAAAAAAADGEES" 
ig2@ PRINT AT 7,9;"8 FB BEEGEE 
GG666 6 8 B &" 
192G PRINT AT 8,95 "BGBGRECAAAAAA 
AA AAAAAAAADGEGEBER" 
1949 PRINT AT 9,985"8 BRBBGES 
G6 6666 88 B g" 
19858 PRINT AT 19,983 "BGBGREGBECAAA 
AAAAAAAAAADEBEEEBEB" 
1969 PRINT AT 11,85 "8 B RA 
CE CHASE &B B" 
1@7@ PRINT AT 12,83 "BGBGBEGBEGEAAA 
AAAAAAAAAAF GBGEGEGR" 
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1988 PRINT AT 13,9:5"8 BBBGG 

GG6G6 66 B88 B B" 

1998 PRINT AT 14,985 "BGBGBGEAAAAA 

AAA AAAAAAAAFLEESGEGE" 

119@ PRINT AT 15,9:5"8 B BGESG 

G666666 8 B B" 

111@ PRINT AT 146,83 "BGBGZEAAAAAAA 

AAA AAAAAAAAAAF GEG" 

112@ PRINT AT 17,9:5"8 BG GEG 

66666666 8 B" 

113@ PRINT AT 18,95 "BGLAAAAAAAAA 

AAA AAAAAAAAAAAAF GB" 

1148 PRINT AT 19,@935"B G@G@ GGEGE 

66666666 6 8B" 

115@ PRINT AT 26,93 "EAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAF " 

116@ PAPER 3: FOR n=@ TO 21: PRI 

NT AT n,3i3" ": NEXT n: PAPER 6 
1288 RETURN 

209 BORDER 3: PAPER 6: INK @: C 

Ls 

2@905 INVERSE 1 

2618 PRINT AT @,115 "RACE CHASE” 

2615 INVERSE @ 

2628 PRINT : PRINT "In this game 
» you ("$2 INK L: PRINT "A"3: IN 

K @: PRINT ") hurtle” 

2938 PRINT "round a track trying 
to hit as ” 

26493 PRINT "many targets (G6) as 

you can " 

2858 PRINT "before you are hit b 

y a missile” 

2968 PRINT "("3i INK 2: PRINT " 

A's: INK @: PRINT ") which is hu 

rtling round the" 

2078 PRINT "track in the opposit 

e direction" 

28898 PRINT "from you.” 

2698 PRINT : PRINT "Key I will m 

ove you in one lane" 

29°5 PRINT : PRINT "Key O will m 


19] 


ove you out one lane” 
21988 PRINT : PRINT "PRESS ANY KE 
Y TO PLAY" 

21ig@ IF INKEY$="" THEN GO TO 21 
1g 

2128 CLS 

2136 RETURN 

3969 REM **¥ set up user-defined 
graphics ** 

3189 FOR n=98 TO 7: READ row 

3119 POKE USR ""+n,row: NEXT n 
3169 DATA 9,153,99,68,1246,192,16 
oy 153 

32698 FOR n=@ TO 7: READ row 

32198 POKE USR "A"+n,row: NEXT hn 
3269 DATA 9,9,16,124, 254,56,9,98 
3396 FOR u=1 To 7 

3385 FOR n=6 TO 7: READ row 

3319 POKE USR CHR (143+u)+n, raw 
NEXT n 

NEXT u 

RETURN 

| 3599 DATA @,9,8,255,255,9,9,9 
3518 DATA 24, 24,24,24,24,24,24,2 


3528 DATA 6,8,8,15,31,24,24, 24 
3538 DATA 9,9,6,224,249,24,24,24 
3549 DATA 24,24,24,31,15,9,9,9 
3559 DATA 24,24,24,249,224,9,9,9 
3568 DATA 6,9,0,24,24,9,9,95 

49983 REM *¥ routine to identify 
user-defined graphics using SCRE 
ENS ¥ 
4918 POKE 23696,88: POKE 23697,2 
sf 

4828 LET x$=SCREENS (y, x) 

4825 POKE 23694,9: POKE 23497,49 
$939 IF x$="G" THEN LET sc=1: 
GO TO 419898 

4949 IF x#=" " THEN LET sc=@: 
GO TO 41989 

49598 IF x$="A" OR x$="B" THEN 
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LET sc=2: GO TO 4199 

49708 IF x#="C" OR x$="D" OR x=" 

E" OR x$="F" THEN LET sc=4: GO 
TO 4199 

4980 IF x#="P" OR x$="M" THEN 
LET sc=9: GO TO 4189 

4999 PRINT "Error": PAUSE @ 
4198 RETURN 


193 


SPEC-TREK 


JEREMY HANNETT 
Original author unknown 


GENERAL DESCRIPTION 


Take the helm of your starship in this hectic, interactive game 
based on the television series ‘Star Trek’. You hardly have time to 
communicate with your colleagues before the Klingons are upon 
you! At your disposal are Photon Torpedoes and Phasers for 
destroying the aliens, and it is advisable to strengthen your 
shields before combat. 

You can call up a Sensor Scan which will tell you of any UFOs 
nearby, while you repair damage from the last battle. At any time 
you may change warp speed and vector direction (usually 
towards the nearest Starbase) to replenish your supplies. But do 
not linger there too long, for the Klingons are never very far away. 
Your main concern is your energy level, which can only be 
increased by successfully docking with a Starbase. 


DETAILED DESCRIPTION 


Lines 10-310 Set up user-defined graphic characters, print the 
title page and user input for instructions. 
500-610 Set starship bridge display. 
1000-1260 Set initial variable values. 
2000-2900 Main program loop. 
3000-3100 Check for user input. 
3200-3295 Out of energy - End of game - Print rating - 
Another go? 
3300-3349 Update on-screen instrumentation. 


S$ 


5S@ RESTORE : 


3800-3840 Leave Starbase. 

4000-4025 Carry out emergency repairs. 

4030-4095 Carry out general repairs. 

4100-4420 Fire Photon Torpedoes. 

5000-5325 Print Starbase - print explosion if hit - restock 
supplies. 

5500-5590 Meteorite shower damages warp engines. 
5600-5630 Escape from Klingons. 

6000-7220 Fire Phasers - check for hit on Klingon. 
7300-7390 Draw graphic starship. 

7400-7599 Play theme tune. 

8000-8190 Change warp factor. 

8200-8590 Sensor scan. 

8600-8650 Position of nearest starbase. 

8800-8860 Change the vector direction. 

9000-9170 Klingon attack!!! 

9200-9700 Calculate the damage sustained. 
9750-9790 User input for the next page. 

9800-9956 Print the instructions. 


REM ¥¥*% Spectrum Spectrek 
RANDOMIZE 
REM *¥¥*% SET UP USER GRAPHIC 


FOR i=@8 TO 15: RE 


AD a: POKE USR "a"+i,a: NEXT i 
69 REM *#*¥* Graphics Data 
7H DATA @,1,195,87,141,78,57,1 
6,8,8,131,294,34,194,56,8 
200 LET ht="Spec-Trek 


285 BORDER 1 
2ig@ LET x=1: LET y=1: LET a=138 


LET b=88: GO SUB 7398 


258 PRINT AT 5,373 
74@ FOR i=1 TO LEN hS: PRINT I 


NVERSE 1:h8 (ids 


3400-3460 Reset Klingons. 276 FOR j=1 TG 28: NEXT j: NEXT 
3500-3530 Reset Starbase. i 
3600-3610 Short pause subroutine. 298 PRINT AT 18,98: "Do you want 
3700-3720 Clear lower screen. 
194 195 


* This program needs a 48K Spectrum 


instructions ? (Y/N) " 
398 LET aS=INKEYS: IF as="y" OR 
aS="VY" GR aS="n" OR as="N" THEN 
GO TO 3168 
34 GO SUB 748g 
3435 GO TO 389 
Sig IF as="y" OR aSZ="¥" THEN G 
0 SUB 888 
390 REM *¥** Display ¥*¥* 
S16 PAPER 7: INK @: CLS 
328 PRINT ” 


538 FOR i=1 TO 9: PRINT 


NEXT i 

568 PRINT " U.S.S. ENTERP 
RISE . 

S78 PRINT "Star Date"3 TAB 185 "E 
nergy” 

96@ PRINT "Condition"; TAB 185 "S 
hield" 

399 PRINT "Warp Vector Se 
nsors"” 

698 PRINT "Phasers"5;TAB 1853 "Tor 
pedoes” 

6198 PRINT "Damage"3TAB 185 "Scor 
e”" 

P99 REM *#¥* INITIALISE ¥**¥ 

igg@@ LET s$="DOWN": LET c%="GREE 
N"> LET t$="READY": LET r$="OFF"” 
19196 LET condition=4 

1628 LET stx1l=1: LET styil=1: LET 
stx2=1: LET sty2=1 

1949 LET p$=t#: LET e=S590g: LET 
w=li LET d=@: LET date=199¢ 

ig?@ LET es=" 

"; LET sti=@: LET s 

t2=68 

1139 ss=@: LET score=9 

1149 sh=9 

118¢ _2$=" 

1199 docked=9 
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1298 LET we=1 

12198 LET wmax=? 

1226 LET nt=19 

1238 LET p=1: LET v=1: GO SUB 35 

@9: GO SUB 349g 

1268 LET us=" - 

2496 REM *¥*¥* MAIN LOGOP *X* 

28685 BEEP .@85,condition+(é*(con 

dition=2)) 

24168 LET date=datetl 

2926 LET e=e-wktw-sh*¥19-ssk5-15% ( 

d>8)}-S 

28938 IF e<=8 THEN LET e=% 

2648 GO SUB 3389 

29598 IF e=8 THEN GO TO 3289 

2198 IF w=@ THEN GO TO 2229 

21198 PRINT AT styi,stx1l3 INVERSE 
13° a 

2128 PRINT AT sty2,stx23 INVERSE 
5 ed oT) 


2138 LET stxi=INT (RND¥3@+1): LE 


T sty1l=INT (RND¥9+1) 
2148 LET stx2=INT (RND¥3@+1): LE 


T sty2=INT (RND¥9+1) 

215@ PRINT AT sty2,stx25 INVERSE 
i3"%" 

214648 PRINT AT styl,stxis INVERSE 
13 "*" 

2178 LET Bbd=bdtw 

2186 IF bv=v THEN LET bd=bd-wk2 

2269 IF wiS OR kvit>v THEN GO TO 
2229 

2285 IF dk>3 THEN GO TO 2219 

2266 LET dk=2 

2267 GO SUB 5689 

2216 LET dk=dk+2+ (w=?) 

2228 IF dk>2@ THEN GO SUB 3499 

2398 LET dk=dk-(dk>@) 

2319 IF bd<i AND NOT docked THEN 
GO SUB 5899 

2489 IF ss AND (dk<3) THEN GOS 
UB 828g 
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2388 IF NOT dk THEN GO SUB 9889 
2490 IF d=@ THEN GO TO 2799 
2618 IF dk THEN LET d=d-19 

2628 IF d<1is@ THEN GO SUB 493¢ 
24398 GO SUB 3390 

27@6 GO SUB 309¢ 

23968 IF (d?>4@) AND RND< (wkw/ 2996 
+.8@1) THEN GO SUB 3599 

2788 GO TO 28968 

29° REM *** CHECK KEYBOARD 

389988 LET at=INKEYS 

3819 IF as="" THEN RETURN 

3829 IF as="w" OR a$="W" THEN 

O SUB Sega 

838 IF a$="s" OR at="S" THEN 
SUE 819898 


3649 IF aS="p" OR aS="P" THEN 
O SUB 7989 
3956 IF at="z" OR as="Z" THEN 
0 SUB 858¢ 
3968 IF a$="b" OR aS="B" THEN 


O SUE 8489 
3678 IF as="v" OR aS="V" THEN 
SUB seag 

3988 IF asS="t" GOR asS="T" THEN 

O SUB 4198 

38°88 IF asS="e" OR asS="E" THEN 

0 SUB 4889 

319@ RETURN 

3266 REM ¥*¥* OUT OF ENERGY. 

3205 FOR i=28 TO -2@ STEP -1: BE 
EP .@i,i: NEXT i 

3219 PRINT AT 16,83 FLASH 13 "Out 
of Energy. Mission Terminated” 
3226 LET aS="AN ABSOLUTE DISASTE 

fF fees 

3238 IF score?S THEN LET as#="TE 

RRIBLE.” 

324@ IF score?>28 THEN LET at="Q 

uite Good.” 

3258 IF score>48 THEN LET as="V 

ery Good." 
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32468 IF score>?é@ THEN LET a%="E 

XCELLENT!" 

32798 IF score>1ig@@ THEN LET a=" 

Klingon Zapper Supreme!!!" 

3288 PRINT " Your Performance is 
rated as:-": PRINT TAB 14-(LEN 

as/2)3 FLASH 1s as%s 

3255 PRINT AT @,943 FLASH 15 "Woul 

d you like another flight ? " 

3286 LET aS®=INKEYS: IF as="y" OR 
a$="Y" OR at="n" OR as="N" THEN 
GO TO 32°¢ 

3288 GO TO 3286 

32°99 IF aS="y" OR aS="¥" THEN R 

UN 

3291 FOR i=28 TO -26 STEP -1: BE 

EP .@1,i: NEXT i 

32935 STOP 

3388 REM *¥*% UPDATE INSTRUMENTS 

33@1 BEEP .895,conditiont+ (6é%(con 

dition=2) ) 

331g PRINT AT 11,183 date: PRINT 

AT 11,253" "; PRINT AT 11,283 

e 

3328 PRINT AT 12,1985" "3 +I 

NK conditions INVERSE 1;5AT 12,19 

ics 

3325 PRINT AT 12,285" "SAT 12 

,283; INVERSE 155% 

3338 PRINT AT 13,75wiSAT 13,165v 

3335 PRINT AT 13,2835" "3 INVE 

RSE 13AT 13,235 r% 

323498 PRINT AT 14,185" "SAT 

14.18: p%;AT 14,2383” "SAT 14,2 

Sint 

3245 PRINT AT 15,1065" "SAT 1 

S,1683;dsAT 15,255" "SAT 15,285 

score . 

3347 BORDER condition 

3358 RETURN 

3498 REM *¥* RESET KLINGONS 

3419 LET dk=INT (RND¥194+1@) 
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3428 LET nk=INT (RND¥3+1) 

343@ LET kv=INT (RNDX¥&8+1) 

3448 LET c#="GREEN": LET conditi 
on=4 

3445 GO SUB 3399 

3459 IF ss THEN PRINT AT 17,%3e 

$5AT 17,935 "No Klingons in Sensor 
Range.” 

23468 RETURN 

3598 REM ¥¥*% RESET STARBASE 
35196 LET bd=INT (RND¥296+299) 
3528 LET bv=INT (RND*¥8+1) 

33398 RETURN 

3498 REM ¥*¥% PAUSE ROUTINE 

3619 FOR. t=1 TO 198@: NEXT t: RET 
URN 

37°08 REM *¥*% CLEAR LINES 29,21 
3718 GO SUB 3499 

3728 PRINT AT 29,85 e85AT 21,835 e% 
: RETURN 

3388 REM ***% LEAVE STARBASE 

33519 LET docked=¢ 

2826 GO SUB 3599 

3839 PRINT AT 2,125uS5AT 3, 135u% 
3AT S$, 195uS3 AT S,1llius 

2646 RETURN 

4968 REM **#* EMERGENCY REPAIRS 
49685 IF e>d+35@ THEN GO TO 4925 
49198 PRINT AT 28,85 "Not enough e 
nergy for repairs” 

4915 GO SUB 37986 

4826 RETURN 

49235 LET e=e-3598 

4936 REM ***% GENERAL REPAIRS 
48235 IF wmax=? THEN GO TO 48649 
4946 LET wmax=? 

4945 PRINT AT 18,985 "Warp Engines 
Repaired.Max Warp=?" 

49598 GO SUB 3498 

4955 PRINT AT 15,95e% 

4969 LET we=1 

4965 LET p=1: LET p%#="READY": LE 
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T d=9 

4986 IF rs="OUT" THEN LET r#="0 

FF” 

4982 IF s#<>"GUT" THEN GO TO 49 

55) 

4984 LET ss="DOWN": LET sh=@ 

4999 GO SUB 3389 

4992 PRINT AT 16,93e% 

4995 RETURN 

4196 REM *** PHOTON TORPEDOES 

4118 IF nt THEN GO TO 4149 

41296 PRINT AT 26,93"No Torpedoes 

4125 GO SUB 3799: RETURN 

4149 IF dk=@ THEN GO TO 4162 

4158 PRINT AT 26,63"Target out o 
# Range." 

4155 GO SUB 37928 

4144 RETURN 

4162 IF s#<>"UP" THEN GO TO 417 

g 

4164 PRINT AT 28,65 "Shield must 
be down to fire" 

4165 PRINT “Torpedoes.” 

4166 GO SUB 3796: RETURN 

4178 CIRCLE OVER 15126,1398,15 
4172 PLOT OVER 135114,13@: DRAW 
OVER 13;28,8: PLOT OVER 15128,1 
146: DRAW OVER 159,23 

4175 PRINT AT 28,93 "Torpedo syst 
ems active.” 

4138 LET kx=15 

4198 FOR i=1 TO 9: PRINT AT i,kx 
35 OVER 1;"A5" 

4296 PRINT AT i,kxs QVER 15 "AB" 
4256 NEXT i 

4269 FOR i=8 TO ? 

4261 BORDER INT (RND¥8): BEEP .@ 
1,26-(ixX6) 

4263 NEXT i: BORDER condition 
4278 LET nt=nt-1 

4286 LET nk=nk-1i 
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4261 LET score =scoretl 
4282 GO SUB 3369 
42°9 IF nt AND nk THEN GO TO 41 
ag 
43668 CIRCLE OVER 151298,138,15 
4392 FLOT OVER 15114,130: DRAW 
OVER 1328,@: PLOT OVER 15125,1 
16: DRAW OVER 159,23 
4316 GO SUB 3396 
4326 IF nk THEN GO TO 44@6¢ 
339 GO SUB 3499 
4379 GO SUB 3798 
4388 RETURN 
44590 GO SUB 3788 
44i9 PRINT AT 26,9835 "Torpedoes ou 
t."5AT 21,93 nk3" Klingons Left.” 
4415 GO SUB 3798 
4428 RETURN 
5968 REM **¥* STARBASE 
s9i@ LET w=8: GO SUB 3364 
S628 PRINT AT 2,125" 
5439 PRINT AT 3,135" 
S846 PRINT AT 4,165 ">= 
S958 PRINT AT 5,115" 
=8@6@ IF dk>2 THEN GO TO 3386 
5978 PRINT AT 28,9; "Danger. Klin 
gon Attack.”: LET c$="RED": LET 
condition=2: GO SUB 336q: GO SUB 
3689 
Saeo PRINT AT 2,12;uS;AT 3,135 us 
547 4,19:uSi AT S,1lLsus 
GO SUB 3596 
LET zxl=15: LET zyi=5 
LET zx2=15: LET zy2=5 
LET zx3=15: LET zy3=5 
LET zx4=15: LET zy4=5 
BRIGHT 1 
FOR i=1 TOS 
PRINT INVERSE 15AT zy1,zxi 


S149 PRINT INVERSE 15AT zy2,zx2 
y's ee" 
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5178 PRINT INVERSE zy3,zx3 
sueeee 

5188 PRINT INVERSE zy4,zx4 
pPUNAS 

5185 BEEP .9@@2,5-i 

5198 PRINT INVERSE zy1,zx1 


5191 PRINT INVERSE Zy¥2,zZx2 


Si?2 PRINT INVERSE Zy3,Z2xS 
H un uo 
3193 PRINT INVERSE zy4,zx4 


52?@@ LET zxl=zxi-1i LET zx2=zx2+ 
1: LET zx3=zx3-i: LET zx4=zx4+1 

5218 LET zyl=zyl-1:5 LET zy2=zy2- 
i: LET zyS3=zy3ti:i LET zy4=zy4+1 

5228 BEEP .962,5-i 

S238 NEXT i 

5246 BRIGHT @ 

5275 LET docked=9 

5286 GO SuB 35698 

5285 PRINT AT 29,9;e% 

5298 RETURN 

5368 LET e=580¢ 

5395 LET docked=1 

53198 LET nt=nt+2k¥(nt<8) + (nt=9) 

53i5 GO SUB 33989 

5326 GO SUB 4938 

5325 LET bd=@: RETURN 

5500 REM ***% METEORITE SHOWER 

55@1 FOR i=1 TO (RND*¥160)+5¢: BO 
RDER INT (RND*¥6): BEEP .9@5, INT 
(RND¥28): NEXT i 

5519 LET tv=INT (RNDX¥(wmax/2)+1) 

55298 LET wmax=wmax-tv 

5525 IF wmax<l1 THEN LET wmax=1 
55239 PRINT AT 18,83 "Meteorite Sh 
ower.Damage to Warp Engines. Max 
Warp = "Swmax 

5546 GO SuB 3796 

S55@ PRINT AT 18,83;e83 AT 19,05e% 
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55498 
sours 
5589 
5598 
3489 
3619 
on=4 
56298 
5625 
$5 AT 


IF w<=wmax THEN RETURN 
LET w=wmax 

GO SUB 3399 

RETURN 

REM #**% ESCAPED KLINGONS 
LET c#="GREEN": LET conditi 


GO SUB 3396 
IF ss THEN PRINT AT 17,9%3e 
17,83;"No Klingons in Sensor 


Range” 


ad 


tate 9 
6888 
6619 
6429 
6425 
6932 
495 
6a 
6949 
49899 
619g 
6196 
6191 
6173 


RETURN 

REM *#** PHASER ROUTINE 
FOR i=i TO 16 

NEXT i 

FOR i=2 TO ? 

PRINT AT i,153 OVER 15;"A&8" 
IF INKEYS<>"" AND e358 THEN 
TO 6196 

PRINT AT 1,153 OVER 13"AB" 
NEXT i 

RETURN 

LET e=-e-S¢d 

BORDER condition-1l1 

FOR g=1 TO -2@ STEP -2: 


P .81,q: BORDER INT (RNDX8): 
ER INT (RND*¥S): NEXT gq 


61794 
62988 
6285 
42198 
6398 
43985 
6386 
63985 
631¢ 
PaaS 
781s 
PB25 
ouT" 

7825 
7B3S 
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BORDER condition: PAPER 
PRINT AT i,153; OVER 153"AB" 
IF i=5 THEN GO TO 4398 
60 To 698¢g 


REM *¥** HIT KLINGON 
LET nk=nk-1l 

LET score=scoretl 
GO SUB 3389 

RETURN 

REM *#*#* PHASERS 


IF p THEN GO TO 7848 


PRINT AT 26,9; "PHASERS ARE 


GO SUB 37289 
RETURN 


7@4@ IF NOT dk THEN GO TO 7978 

7958 PRINT AT 28,93 "Target out o 

* Phaser Range” 

7955 GO SUB 3799 

784648 RETURN 

78798 IF e>58 THEN GO TO 7196 
7988 PRINT AT 26,@;"No Energy fo 
r Phasers” 

7885 GO SUB 3799 

7898 RETURN 

7198 CIRCLE OVER 13128,139,15 
7192 PLOT OVER 15114,13@8: DRAW 
OVER 1328,@: PLOT OVER 15128,1 
16: DRAW OVER 159,238 

7195 LET p$="ARMED": GO SUB 338¢ 
: PRINT AT 26,9; "Phasers Armed a 
nd Ready.” 

711@ GO SUB 4999 

7115 GO SUB 3388 

7129 IF e<5@ THEN GO TO 7296 
7is@ IF nk=@ THEN GO TO 7158 
714@ GO TO 711¢ 

7156 GO SUB 3496 

7146@ LET pS="READY": GO SUB 3396 
7iSss CIRCLE OVER 15128,139,15 
7182 PLOT OVER 15114,139: DRAW 
OVER 13;28,8: PLOT OVER 13128,1 
16: DRAW OVER 159,238 

7185 PRINT AT 28,835e% 

7i?8 RETURN 

72a@eq PRINT AT 26,93; e83AT 28,95 "E 
nergy Banks Drained” 

7219 PRINT nk3" Klingons Left"; 
INVERSE 13AT 14,65 "QUT"5 INVERSE 
5" ‘ 

7215 GO SUB 3789 

7228 GO TO 7138¢ 

739G REM ¥%¥*% DRAW ENTERPRISE 
7318 FLOT a,b: DRAW @,4%y: DRAW 
3EXx.G,-G.SK¥SGN (x¥y):s DRAW 46%x 
»~1L4é%y,-8.5%SGN (xty)s DRAW -42% 

x%,;8,-G.S¥SGN (xy) 
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7315 DRAW -43Xx, 15%y,-8.5%SGN (x 
*¥y)i INK G2 PLOT at3iXx, b+3%y: D 
RAW 23%x,-4%y,8.3%S5SGN (x*y) 
7328 DRAW -23%#x%,4%y7,2%SGN (x¥y): 
PLOT atS8Skx,b-10%y: DRAW 6, -é%y 
> DRAW -36%x,8,-G.4*%SGN (x¥y) 
7325 DRAW -48%x, 14% y,-G.4¥SGN (x 
ky)i DRAW -6%x,-4%y¥,0.4%SGN (x®y 
): DRAW 14%x,-7%y,9.1¥SGN (x¥y) 
23398 DRAW Skx,4%y,-G.1L1¥SGN (x¥y) 
> PLOT at+22%x,b-22%y!i DRAW 7¥x,- 
2*y: PLOT at22%x,b-27xy 
7355 DRAW 2kx, 1DXy,1.9XSGN (x¥y) 
DRAW -3kx,-19%¥y,35.1XSGN (xy): 
PLOT atilZktx,b-26%yi DRAW 3¥x,14 
Ky,3.1¥SGN (xy) 
2S48 DRAW -4%x,-L4%y,1.3¥5SGN (x¥ 
yi DRAW -23%%, 7? Xy,-G.1XSGN (x*y 
): DRAW -24kx,13%y¥,G9.1X¥SGN (x¥y) 
7345 DRAW 3kx,Sky,-Z2.L¥SGN (xy) 
> PLOT atS¥x,b-1lity: DRAW 8%x,-1 
Xv; -G.GkSGN (x¥y)i PLOT a-S%¥x,b- 
thy 
2358 DRAW -12%x,1%*y: PLOT a-S¥x, 
b-4x¥yi DRAW -12%#x,1%y: DRAW 15%x 
si?f%y: DRAW -G%Xx,1%y: DRAW -11%*x 
» ~1L9EH%y 
7355 PLOT a-id¥x,b-4¥y: DRAW -14 
*¥x,1i3kyi PLOT a-1?%¥x,b-4#y: DRAW 
-9%x%,8,-1.2*%5GN (x¥y): DRAW -11 
Xx, ladky 
%368 PLOT a-29%x,b+S%*y: DRAW -49 
Xx, Lleky: DRAW Sx, 19%y,-G.S¥SGN 
(x¥y) i DRAW 67%x,-13*%y 
7365 DRAW -2%x,-FkXy,-2.5%SGN (x 
y)a BRAW 8, 19%y,-1.3%SGN (xy): 
DRAW 31iXx,-G%y: DRAW G,1g%y,2.4% 
SGN (xy) 
PSP DRAW -2%x%,-PXy,2.4%SGN (x¥y 
}: PLOT atilixXx,b+22¥y: DRAW -42% 
x, 1lBky: DRAW -Skx,-7¥y,1,.1%5GN ¢ 
H¥y) 
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7375 DRAW -4%x,6%y: DRAW Skx, ly 

: PLOT a-89%x, bt2ixy: DRAW -4kx, 

PxXyi DRAW GkXx,F 

P3ee@ RETURN 

7498 REM **#* STARTREK TUNE 

7418 READ a,b: IF a=@ THEN REST 

ORE 7500: GO TO 7419 

7426 FOR i=1 TO a¥2: BEEP .@1,b: 
BEEP .@1,b+12: BEEP .@1,b-12: N 

EXT i: RETURN 

7588 DATA 1,9,2,1,4,3,1,6,1,5,1, 

3,1,1,1,9,4,-1 

7518 DATA 1,9,2,1,4,;38,1,4,1,5,1, 

3,1,1,1,9,4,-1 

7528 DATA 1,-3,4,-2,1,90,1,1,1,3, 
1,5,1,6,2,9,4,11 

7538 DATA 1,19,1,8,4,-2,2,9,4,1 

7599 DATA @,8 

eege@ REM *¥* CHANGE WARP 

89¢5 IF we THEN GO TO 8@25 

S@1ig@ PRINT AT 26,8: "Warp Drive o 

ut of action" 

B88i5 GO SUB 37898 

eaz2aq RETURN 

8625 LET ow=w 

S930 PRINT AT 28,83 "New Warp Fac 

tor 7" 

8835 LET wS=INKEYS: IF w%<"s" OR 
w$>"9" THEN GO TO 8835 

8936 LET w=VAL wt 

SG49 IF wiwmax THEN GO TO 8979 

8645 GO SUB 339@: PRINT AT 268,83 

es 

S858 IF ow=@ AND docked THEN GO 
SUB 3689 

8968 RETURN 

69768 PRINT AT 28,93 "The Engines 

Canna take it , Captain!!”" 

8975 GO SUB 379¢ 

sese GO TO 8g3¢ 

Sigs REM *** SHIELD 

81@5 IF s$="QUT”" THEN GO TO 8178 
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8118 LET sh=NOT sh 

8139 LET s#="DOWN” 

81498 IF sh THEN LET s$="UP" 
8159 GO SUB 3396 

81468 RETURN 

8178 PRINT AT 29,83"Shield is ou 
t of action.” 

8188 GO SUB 37998 

S19@ RETURN 

8298 REM **¥#* SENSORS DETECT KLIN 
GON 

8295 IF dk<>2 THEN GO TO 8239 
6219 LET c#="YELLOW": LET condit 
ion=6 

82268 GO SUB 3389 

8238 LET tv=kv+4 

S248 IF tv>S THEN LET tv=tv-8 
8258 PRINT AT 17,93 nk3" UFOs, "3d 
ks" Light Years,Vector "stv 
8269 RETURN 

S398 REM *¥*% SENSORS 

S518 IF r8<>"GUT" THEN GO TO 85 
4a 

6528 PRINT AT 28,83 "Sensors out 
of action.” 

6523 GO SUB 3788 

8538 RETURN 

8548 LET ss=NOT ss 

83550 LET r$="0OFF" 

8368 IF ss THEN LET r$="0N" 
8572 GO SUB 339¢ 

8589 IF ss THEN PRINT AT 17,83" 
No Klingons in Sensor Range.” 
83598 RETURN 

S698 REM ¥*¥*% NEXT STARBASE 

S429 PRINT AT 26,9; "Nearest Star 
base "Sbd5" Light” 

8625 PRINT "Years in Vector "jbv 
8439 GO SUB 3798 

8458 RETURN 

83888 REM #*#*% CHANGE VECTOR 

S819 PRINT AT 28,93; "New Vector ?* 
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88298 LET v#=INKEYS: IF v#<"1" OR 
v$e>"S" THEN GO TO 8825 — 

8838 LET v=VAL v® 

8856 GO SUB 3386: PRINT AT 29,95 
es 

8868 RETURN 

99898 REM ¥**% KLINGON ATTACK 

POG1eG LET c#="RED": LET condition 
=2 

7828 GO SUB 33988 

$825 IF docked THEN GO SUB 598d 
9839 LET kx=15: LET ky=1 

°s4a@ FOR i=1 TO 9? 

S858 PRINT INVERSE 15AT ky,kx,” 
AB" 

99868 PRINT INVERSE L15AT ky,kx,” 
7938 LET ky=kytl1 

Piss NEXT i 

F119 FOR i=1 TO nkk¥2 

9126 BORDER INT (RND¥8): BEEP .@ 
85,25 

P1496 NEXT i 

9168 GO SUB 929g 

P1778 RETURN 

7200 REM **¥* CALCULATE DAMAGE 
S218 LET d=dtnk¥(28+2GX (NOT sh)? 
215 GO SUB 3398 

9228 IF d>49@ THEN GO TO 939898 
9238 LET tv=INT (d/186) 

F248 GO TO F78GG-199Kktv 

9388 LET we=¢ 

9318 LET w= 

9328 GO SUB 338@: PRINT AT 16,95 
"Warp engines "3 INVERSE 13; "GUT" 
9498 LET p=a 

S4i8 LET ps="O0UT”" 

eSea@e@ LET s#="OUT" 

9S5ig LET sh=9 

946998 LET ss=@: LET r#="OUT" 

S428 PRINT AT 17,@5e%: GO SUB 33 
535) 
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P7988 
eo? ag 
9749 


ess any Key to Continue. 


F773 
HEN 

F?7ag 
PPE 
FBee 
ead2 
F3e4 


RETURN 

REM *X*** NEXT PAGE 

PRINT AT 21,35 FLASH 15" Pr 
GO SUB 7488: IF INKEY$="" T 
GO TG #77¢ 

CLs 

RETURN 

REM *¥¥% INSTRUCTIONS 

CLs 

PRINT "You are in command o 


f Starship Enterprise. Your mis 


sion 


is to destroy Klingon Batt 


le Cruisers in this quadrant of 
the galaxy. You are armed with P 
hasers and Photon Torpedoes. To 
rpedoes can only be fired if you 
r shield is down,and you have a 
limited supply, but they nev 


er miss. 


Fb22 


PRINT " Phasers are fired 


by you and sometimes miss. They 


Use 


shot. 


ng units of energy per 
If yourun out of energy th 


2 mission ends. Energy drains 
are Life Support (cannot be s 
witched off}iShield (if on),and D 
amage Repair" 


e34ea 
as a 
d is 
ee4ds 
74? 
eeds 
S458 
osts 


PRINT "Damage is sustained 
result of Klingon attack,an 
worse if unshielded.” 

GO SUB 9758 

PRINT ” If damage exc 
1gg” 

PRINT “units, sensors are 1 
>280 - shield is lost; %*308¢ 


- phasers are lost +4998 - warp 
drive lost.Functions are not re 

stored untilless than 19 units, 

or you request emergency re 


pairs 


(Uses a lot of energy), or 


until you dock at a starbase."” 


210 


844 PRINT "Each starbase can re 

fuel only i ship,so you will nee 
d to call atseveral during a lon 

g mission, but don’t lead the K 
lingons there,or the Base wi 
11 be destroyed." 

9876 PRINT "Commands are given Bb 
¥ pressing acertain key (you may 
have to wait a few seconds 6b 

efore the ships computer obeys 
»." 

e384 GO SUB 9758 

See6 PRINT "Options are:- 

Change Shield St 
atus Change Sensor St 
atus Change Warp Fact 
or (@ TO #) V Change Vector (Di 
rection 1-S)E Do Emergency Rep 
airs T - Fire Fhoton Torp 
edoes P - Arm Fhasers. You 

then fire by pressing any key 
(Hold down for continuous fire) 


99946 PRINT "B - Gives distance a 
nd directionof next starbase. 
Vectors are :- il 
8 2 
Y 3 
& 4 


5" 


99190 PRINT "At Warp & or F you c 
an outrun klingons from the op 
posite direcion. eg. if the 
y come from Vector 2,7o0u must ta 
ke Vector 6.": GO SUB 975d 

9932 PRINT "The display shows th 
e main screen and instrumen 
t panel of the ENTERPRISE. You 
must keep alert for attacks by 
Klingons {who look like AB) a 
nd try to conserve energy so a 
s to reach the next starbase. 
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If sensors are on, ¥ 
Ou gehta warning of klingons 
nearby.” 
Foe PRINT : PRINT : PRINT FLAS 
H 15" GOOD LUCK CAPTAIN !! 


99355 LET x=-1: LET y=1: LET a=19 
@: LET b=4@: GO SUB 73998 

9956 GO SUB 7758: RETURN 

S999 GO SUB 597g: GO TO 9999 


ANDREW ESMOND 
Original program by Jeff Aughton 


GENERAL DESCRIPTION 

In this game you are the commander ofa coastal gun anditis your 
job to sink the enemy convoy before it passes through the straits 
which your gun overlooks. You can control the elevation and 
bearing of your gun to enable you to hit the ships as they move 
through the channel. 

This game uses the colour, sound and user-defined graphics of 
the Spectrum in a most effective manner and will provide a good 
example for you to base some of your own games on. 


DETAILED DESCRIPTION 


Lines 10-60 Set up variables and arrays. 
70-250 Print the picture of the straits. 
260-270 Print the ships in their original positions. 
280 Print gun elevation and bearing. 
300-340 Get keyboard input and, if necessary, adjust 
elevation and bearing appropriately. 
350-410 Ifa shell has been fired, determine where it lands. 
420-470 Move the next ship in the convoy. 
600-740 A shell has landed so simulate the explosion, and 
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if a ship has been hit, remove it from play. 

800-860 You have destroyed the whole convoy; print 
number of ships sunk and duration of game, then stop. 
880-910 Make the next game harder, if the player wants 
it that way. 

920-960 A ship has escaped so you have lost. 

980-990 User-defined graphics data. 

1000-1080 Instructions routine 


9000-9030 Setting up user-defined graphics and a bit more 


user-defined graphics data. 


i@ REM convoy 
11 LET t=@: LET ts=@ 
15 GO SUB 10@a 
20 LET n=3: LEY u=.@58: LET v=.04: LET 
p=P1/18@: LET 1=232@5 
30 DIM m(14)s DIM x(9)s DIM y(9): DIM 
s(9) 
4@ LET b=@: LET e=10: LET h=@: LET k=@ 
LET r=@ 
6@ RESTORE : FOR i=@ TO 13: READ m(i+1 
NEXT i 
70 REM #*#drawk** 
@@ CLS : FOR i=1 TO 15: PRINT INVERSE 
ls INK 43" "es NEXT is PRINT INVERSE 
1s INK 4;" 
100 PRINT TAB 213; INK INVERSE 13" 


11@ PRINT TAB INK INVERSE 135" 


PRINT TAB INK INVERSE 
PRINT TAB s INK INVERSE 
PRINT TAB INK INVERSE 
PRINT AT 15,@; INK 45 INVERSE 15” 
PRINT INK 43 INVERSE 1;" 


PRINT INK 45; INVERSE 15" 
PRINT INK 43 INVERSE 15" 


19@ PRINT INK 43 INVERSE 

200 PRINT INK 43 INVERSE 1 

21@ PRINT INK 4:3 INVERSE 

"SAT 20,11; 

23@ FOR i=@ TO 21 

240 PRINT AT 1,313 INK 45; INVERSE 15” 

: NEXT i 

20@ FOR i=6 TO 25: PRINT AT 21,5+tis INK 
4s INVERSE 13" “ss NEXT i 

26@ FOR i=1 TO ms READ x(i),y(i) 

265 LET sti) =22520+x (1)+(32%y(i)) 

27@ PRINT AT yid,x¢ids INK 73" "s NEX 
T is LET sb=FN x() 

280 PRINT AT @,@5; INK 45 INVERSE 13 "hit 
s"shs" elevation "ses" bearing "“sb3" " 
3@@ LET k=k+is IF kn THEN LET k=1 

320 LET m#=INKEY* 


330 LET e=e~ (e710) * (m$="2") + (e< 85) * (m$= 


mepMy 
34@ LET b=b-(b>—-S) # (m$="4")+ (b< 98) * (ms= 
wey 


350 IF mé<>"5" OR r<>@ THEN GO TO 420 
37@ FOR i=1 TO 7: LET ts=2@0*SIN (exp): 
LET t=FN x() 

38@ NEXT i 


390 LET r=23*SIN (2*exp) 

4@@ LE! x=INT (1.2%r*SIN (b*p)+.5) 

410 LET y=INT (r*COS (b¥p)+.5) 

420 IF r<>@ AND RND>.85 THEN GO TO 600 
43@ LET dx=(RND<u): LET dy=(RND<v): LET 
d=2"dx+64edy 

440 LET m=s(k)td: IF PEEK m=4 THEN GO 

TQ 928 

450 IF PEEK m<>9 OR PEEK (mt+1)<>9 THEN 

GO TO 280 

460 POKE s(k),9%: POKE s(k)+1,97: PRINT A 
Tytk) atk) e" “ss LET stk) =m: LET x(k) =x 
(hd ¢dxe2s Leal ycko=y(k) +2¥dy 

470 PRINT AT yt(k),x(k)s INK 73" "* 

475 GO TO 280 

600 REM **¥shell landsx#xx% 


610 LET r=@: LEY w=3: LET gq=ltx-32*y 
620 IF PEEK g=15 THEN LET w=1@ 
630 FOR i=1 TO 3: PRINT AT 21-y,Stxs; F 
LASH 1: INK 7:;CHR# (146+1): BEEP .@5,.85 
640 PRINT AT 2il-y,5t%3" “se NEXT 1 

67@ IF w=3 THEN GO TO 740 

69@ LET fi=@: FOR i=1 TO n 

7@Q IF “tid=St: AND ytid=21-y THEN LET 
x (i)=xdn): LEI y¢id=y(n): LET heh+i: LE 
1 €1=1: LEI sti)=stn): PRINT AT 21-y,4+tx 
71@ NEXT i 

720 IF £1 THEN LET n=n-1 

740 1F n THEN GO TO 280 

800 REM #*#x¥*all destroyed*** 

@@1 BEEF .4,@: BEEP .5,4: BEEP .4,@: BE 
EP .95,9 

810 LET t=FN x()-sb 

820 PRINT AT 10,11; PAPER @; INK 7; FLA 
SH 1: BRIGHT 13;"GAME OVER” 

83@ FRINI INK 73"you destroyed "sh3s" s 
hips.” 

835 PRINT "your time was "5;t;" secs” 
840 IF k THEN GO TO 88@ 

85@ BEEP .5,-2: BEEP .6,-6 

860 STOP 

88@ INK 7: PRINT "PRESS THE SPACE BAR F 
QR A HARDER GAME.." 

890 IF INKEYS<>" " THEN GO TO 8908 

900 IF h=9 THEN LET h=8: LET u=2eu: LE 
T vE2ey 

910 LET n=hti: GO TO 408 

920 PRINT AT ytk),x¢ki3s" ™ 

940 PRINT AT 3,0: INK 6; FLASH 1: "SHIP 
ESCAPES!!! "sAl dy,dx3s"#" 

5950 GO SUB 960: PRINT AT dy,dx3" "s GO 
SUB 94@: NEXT i: LET k=@: GO TO 810 

960 FOR j=1 fO 20: NEXT js: RETURN 

980 DATA 147,144,140, 129,147,134,161,16 
@,130,143,143,141,161,160 
990 DATA 24347 934595556534,4,18,5,5,7,18, 


216 


53,7,8,9 
998 RETURN 
999 STOP 
19020 BORDER @: PAPER @: INK 6: CLS 
1@@i1 DEF FN x()=INT ((465536#PEEK 23674+2 
S6*PEEK 23673+PEEK 23672) /5@) 
101@ PRINT "A convoy of ships is sailing 
and you have to destroy them alli” 
14@2@ PRINT “using the gun (+) in the bot 
tom corner of the screen." 
1030 PRINT INVERSE 13;"Elevation"; INVER 
SE @;" is measured in degrees(1@-85) fro 
m the horizontal.": PRINT " To increa 
se me 
1940 PRINT “press 8,": PRINT " To dec 
rease press 2."s INK 7: PRINT " Maxim 
um Range occurs when Elevation=45 
degrees.” 
195@ PRINT =: INK 6: PRINT INVERSE 1;"Be 
aring"; INVERSE @;" is measured in degre 
es from -S through @(north) to 
9@teast).": PRINT " Increase by press 
ing 6." 
1960 PRINT ” Decrease by pressing 4.” 
10@7@ PRINT : PRINT " To fire press 5." 
: PRINT : PRINT INVERSE 13:" Press enter 
to start the game “: INVERSE @ 
1080 LNFUI LINE at: GU SUB Y@@0: BURDER 
i: INK 1: PAPER 1: CLS : RETURN 
1111 STOP 
1999 DATA 0,9,8,0,0,9,9,8,0,0,0,0,0,48,8 
900@ RESTORE 901@: FOR f=@ TO 7: READ a, 
b: POKE USR "a"+f,as POKE USR "b"+f,b: N 
EXT f 
97010 DATA 1,0,1,0,15,192,31,248,127,255, 
127 ,254,63,252,63,24@8 
9020 FOR f=USR "c" TO USR “g": POKE f,1N 
T (RND#256)= NEXT f 
9020 RETURN 
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2000-3040 Print end page - give assessment and ask for 
SEARCH AND RESCUE another go 

7000-7160 Print instructions. 
TIM WARD 7500-8100 Set up user-defined graphics characters and 
create boat and wave strings. 


Original program by Geoffrey Little and Michael Orton 


1 CLS : CLEAR : RESTORE 
5 REM *¥*¥Detect position of c 
GENERAL DESCRIPTION opterkx* 
ig LET c=@: DEF FN a(la)=(CODE 
(SCREENS (24,198))<>32) 
2@ DEF FN bib)=(x>l AND y<4& AN 
D y>?2 OR x>15 AND y<9 OR x>19) 


A holiday cruiser has sunk offrocky coastline. Itis yourjob to save 
the 20 survivors from lifeboats with your rescue helicopter. 


Skilfully fly down to a point above the boats where the survivors 25 DEF FN c(c)=(x>17 AND y>19) 
can be winched aboard, then fly behind the lighthouse and set 276 LET d=@: DEF FN d(d)=(p=1 A 
them down safely on dry land. Keep an eye on your fuel level ND INKEY$=" "3 

which decreases more rapidly if you are carrying passengers. 27 DEF FN e(e)=(fu-(4¥f1)) 
However there is an unlimited fuel supply at the top of the 5@ GO SUB 7896: GO TO 899g 
lighthouse. Only after all 20 lifeboats have run aground will a 99 REM ¥*#*Pick up survivorxx* 
score be given, along with an assessment of your ability. 19@ IF CODE (SCREENS (x+2,y¥))<> 


32 THEN GO TO 1984 
igS RETURN 
194 IF x?18 OR p=1 OR rp=8 THEN 


DETAILED DESCRIPTION BE TERM 
= 1i@7 IF CODE b¥(y-9)<>152 THEN 
Lines 5-50 Define functions to determine position of helicopter. oer 

: . ‘ i11@ PRINT AT xt+1l,yiCHR® 148: PR 
90-200 Winch up a survivor. INT AT x,y} INK 23;h#(dir): PAUSE 
201-215 Drop a passenger. 8: PRINT AT x,ys INK 23hS(dir+l 
216-222 Passenger is dashed to death on the rocks. ): PAUSE 8: PRINT AT xti,y3" "3A 
224-230 Passenger is lost at sea. T x,yi" "2 LET bS(y-9)=CHRS 1é1 
235-300 Passenger is winched to safety and runs into : PRINT AT x+2,y3 INK 35CHR® 141 
lighthouse. 115 LET x=x-1: LET y=y-2: LET p 
350-440 Helicopter stalls and explodes. =1: RETURN 
450-925 Set up screen display of lighthouse and rocks. 299 LET rr=@: IF x>=13 AND y<3 
950-1001 Set up initial values of variables. THEN LET rr=t 


261 REM *¥¥Drop passenger k*k* 
295 FOR j=1 TO 24: PRINT AT xtj 
»yFCHRS 148; PAUSE 5: PRINT AT x 


1003-1030 Play the introductory tune and get user input for 
the helicopter controls. 

1031-1033 Pick up passenger and increase fuel 
consumption. 

1045-1053 Check for helicopter crash. 

1054-1065 Print lifeboats and choppy sea. 
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* This program needs a 48K Spectrum 


+jyye" 
Pig IF~x+j=lé AND y<3 AND rr=l 
THEN GO TO 259 


215 IF xt+j=16 AND y<3 AND rr=G 
THEN GO TO 364 

216 REM *##*Splat passenger XxX* 
228 IF x+j>=16 AND y>S AND y<i1i 
THEN PRINT AT x+j3y¥i INK 25CHR 
$ 156: BEEP .5,-15: PRINT AT xtj 
sys" “3 LET dd=dd+i: LET p=8: LE 
T rp=¢: RETURN 

222 IF x>=1 AND y>2 AND y<é6é THE 
N LET qg$=SCREENS (xt+l,y):i PRINT 
AT x+l,yi INK 25CHRS 154: BEEP 
ets-i5: PAUSE 3S: PRINT AT xtlyyi 
qS: LET rp=8: LET p=8: LET dd=dd 
+1: RETURN 

224 REM **#*Passenger falls into 
SCAKKEK 

225 IF x+j>1? AND y>18 THEN PR 
INT AT (x+j),y¥5 "SPLASH": PAUSE 53 
: LET dd=ddt+i: LET p=: LET rp=% 
> RETURN 


238 NEXT j: LET p=@: LET rp=e: 


RETURN 

2335 REM *##*Passenger enter ligh 
thouseXk* 

258 PRINT AT xt+j,;y¥3" ": FOR s=1 

Ta 3 

251 IF y+s>2 THEN LET p=@: LET 

rp=8: LET su=suti: RETURN 

255 PRINT AT xt+j,y¥+tsSiCHR® 149: 
PAUSE S: PRINT AT xtj,yts3" ": N 
EXT s: LET su=sut+i: LET p=@: LET 

rp=9: RETURN 

398 PRINT AT x+j,y¥3 INK 23CHRS 
i56: BEEP .5,-15: PAUSE 5: PRINT 

AT x+j,yi" "i LET dd=dd+1: LET 
p=9: LET rp=8: RETURN 

359 REM *#¥*#Helicopter stalls & 
exp lLodeskk* 

488 FOR w=1 TO 21 

418 IF FN b(b) THEN PRINT PAP 
ER 465AT x,ySCHR® 1563AT x,y+15CH 
RS 156;AT x+l,ysCHRS 15465AT x-1, 
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yiCHRS 154: BEEP 1,-28: GO TO 26 
BE 

428 LET xi=x: LET yi=y: LET x=x 
+1 

425 IF xi¢>x OR yi<>y THEN PRI 
NT AT xi,yis" ” 

438 PRINT AT xyys INK 25h8(dir) 
: BEEP .@2,-48: BEEP .92,-48: PR 
INT AT x,y¥3 INK 25 hS(dirt+i): PAU 
SE 3: BEEP .@2,-48: LET fu=FN e( 
fu): IF fu<ig@@ THEN FOR j=1 TO 
3: BEEP .95,5@: NEXT j 

444 NEXT w 

456 REM *¥*¥*¥Set up screenkk* 

899 LET rs=" . 

895 PRINT AT 3,35CHR® 1575" "sC 
HRS 158;AT 2,453; CHR® 159 

966 FOR j=4 TO 16: PRINT AT j;3 

919 IF j/4=INT (j/74) THEN PRIN 
T AT j+1,35 INVERSE 15 BRIGHT 13 
" # "5 LET j=jtl 

S298 NEXT j 

625 FOR j=1 TO 3S: PRINT AT 16+4j 
.93 «INK 43r8( TO S+j)3CHR# 155: 
NEXT j 

959 REM ¥*¥*¥Set variablesktx* 
1@@@ LET tot=2@: LET fl=1: LET f 
u=1889: LET rp=8: LET x=1: LET x 
1=1: LET k=@: LET y=2: LET yi=2: 

LET dir=1: LET p= 
1@@1 PRINT AT 26,193 INK 3;bS( T 
O 21): PRINT AT 21,115 INK Liws 
19@3 REM #*#*Intro tunex** 

1694 FOR j=1 TO 2: BEEP .1,11: B 
EEP .i1,i11: BEEP .8,16: BEEP .95, 
ii: BEEP .95,146: BEEP .@5,11: BE 
EP .@5,14: BEEP 1,28: NEXT j 
igg@5 LET q#=" "i LET dd=@: LET s 
u=@: LET rr=@: LET *$=" " 
1g@96 FOR v=1 TO 5 
1gi@ IF INKEYS="@Q" OR INKEYS="q" 
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THEN LET x=x-1 

1@ii IF x=1 AND y=3 AND INKEYS=" 
" THEN LET fu=fut25 

L@12 IF fu>ilg@s@e THEN LET fu=19¢ 

8: LET y=yrl 

1815 IF INKEYS#="A" OR INKEYS= 
THEN LET x=x+t1 

1g2@ IF INKEYS="0" OR INKEYS= 
THEN LET yey-i: LET dir=3 

ig2i IF INKEY#="P" OR INKEYS= 
THEN LET y=yti: LET dir=1 

ig22 LET k=k+1 

i923 IF FN d(d) THEN GO SUB 299g 

1924 IF x<i1 THEN LET x=1: LET d 

ir=1 

ig235 IF p=i THEN LET f1=1.5 

1926 IF x>?21 THEN LET x=21 

ig2? IF ywi@ THEN LET y=@: LET d 

ir=1 

1828 IF y?3@ THEN LET y=38: LET 
dir=3 

1929? IF x1i<>x OR yi¢>y THEN PRI 

NT AT xi,syl3"  ” 

1938 IF x¢1l? AND y>}4& THEN GO TO 
1849 

ig3i IF INKEY$#=" " AND x>17 THEN 
LET rp=1: REM **#X*Fick up passe 

ngerkXek 

i932 IF p=1 THEN LET f1=1.5: RE 

M X#*¥*I Increase fuel if passenger 

takenkk* 

1933 IF p=@ THEN LET fl=1 

1945 REM ¥#¥XDetect crashX¥X*¥ 

ig46 IF FN 6(b) THEN PRINT PAP 

ER 635AT x,yiCHRS 1I565AT x,yt13CH 

RS LS63;AT x+1,¥5CHRS 1563AT x-1, 

yiSCHRS i156: BEEP 1,-28: GO TO 29 

ge 

ig4? IF FN c(c) THEN GO SUB 189g 

1946 IF FN dtd) THEN GO SUB 269 

1949 PRINT AT x,yi INK 23 h8(dir) 

: BEEP .92,-4@: BEEF .9@2,-4@: PR 
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INT AT x,y? INK 25 h8(dir+i): PAU 

SE 3: BEEP .@2,-4@: LET fu=FN e( 

fud: IF fu<ig@ THEN FOR j=1 TO 

3: BEEF .95,5@: NEXT j 

igS@ LET rp=8: LET £%=STRS (INT 
(fud): PRINT AT @,285 INVERSE 13 

* "SAT @,283:48( TO ): IF fu<-il 

@ THEN GO TO 4989 

i@51 LET rp=8: LET xi=xi LET yil= 

ys NEXT v 

1952 IF INT (k/15)=k/15 THEN GO 
TO 19855 

1953 GO TO 1845 

19654 REM *#X*¥Print boats & waves* 

X* 

1955 LET bS=b¢(2 TO )+” "; PRIN 

T AT 28,1983 INK 33bS8( TO 21) 

198546 IF FN ata) THEN PRINT AT 2 

@, 18; CHR 1546: PAUSE 28: PRINT A 

T 28,105" " 

1957 IF k>=158@8 THEN GO TO 2188 
igé4@ PRINT AT 21,115 INK lgiws: L 

ET wt=w#(2 TO )+w(1) 

1945 GO TO 1@1¢ 

2868 CLS : PRINT AT 11,193 "You b 
lew it!!": GO TO 3998¢ 

2168 CLS : PRINT AT 5,53 "End of 
rescue operation.” 

2185 LET lost=tot- (ddtsu) 

7119 PRINT AT 7,5; "You saved "is 
u3(" people” AND sud1)5(" person 
" AND su=1)3 (CHRS 8+" no-one” AN 
D su=M):i PRINT AT 9,53 losts3(" pe 
ople were" AND lost?1)3(" person 
was” AND lost=1)53 (CHR 3+" no-o 
ne was” AND Llost=@)5" lost at se 
a.” 

212@ IF dd=@ THEN GO TO 2149 
Z21i3@ PRINT AT 11,53 "Unfortunatly 
"sdd3(" people” AND dd>1)5(" pe 
rson" AND dd=1)5" died": PRINT A 
JT 12,53 "due to your incompetance 


223 


2-"3 PRINT AT 13,55 "You are suspe 

nded pending an enquiry.” 

2i4g@ GO TO 38988 

3888 PRINT : PRINT "” Ano 

ther try Y/N" 

381g LET aS=INKEYS: IF as="" THE 

N GO TO 391¢ 

39298 IF a$="N" OR aS="n" THEN 5§& 

TOP 

39398 IF at="Y" OR at="y" THEN R 

UN 

3948 GO TO 3819 

7988 CLS : PRINT AT 1,73 INVERSE 
13; FLASH 15" Air Sea Rescue "5 

PRINT AT 3,93 "You are the pilot 

of a rescue helicopter,based o 

na lighthouselocated on a dange 

rous part of the coast." 

7GiG PRINT "A holiday cruiser ha 

s sank off your coast,the crew a 

ndpassengers have got away in th 

@ lifeboats. "5 

7@2E PRINT "However the Lifeboat 

sare being carried By the curren 

tonto the rocks! !" 

7839 PRINT : PRINT "It is your j 

ob to save as Many passengers a 

nd crew as possible.You must fly 
down to each boat and pick up 

2 survivor." 

7848 FRINT "Don’t get too close 

to the boat the downdraft from y¥ 

our rotors will prevent the su 

rvivor from standing up.” 

YS58 GO SUB 8989 

FO@SL PRINT #135AT 1,983 "Press any 

key to continue": IF INKEYS="" T 

HEN GO TQ 7951 

7869 CLS : PRINT AT 1,65 "Flying 
Instructions” 

7878 PRINT : PRINT "To fly the h 

elicopter use the following ke 
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ysi-" 

79888 PRINT AT 6,195 "@.....up"s3AT 
8,19; "A....,.down"sAT 19,1693 "0.. 
see lefte"SAT 12,1985 "P.....right” 

78°OG PRINT : PRINT "The SPACE ke 

y has two functions.Press it to 

collect a survivor.” 

7188 PRINT “CThe helicopter must 
be above the mast of the boat 
But not tooclosel.” 

7119 PRINT #13AT 1,93 "Press any 

key to continue": IF INKEYS="" T 

HEN GO TO 7119 

F126 CLS : PRINT "Pressing the §S 

PACE key releases the pasenger.” 

: PRINT "You must land the passe 
nger behind the lighthouse b 
ut do notrelease him higher than 
the low-est window on the light 
house." 

Yise PRINT : PRINT "Your fuel st 
atus is indicated on the right 
s YOu may refuel By positioning 
the helicopter directly abo 

ve the top of the lighthouse a 
nd pressing the SPACE key (n 

ot with a passenger aboard thoug 

hie” 

7148 PRINT : PRINT "When your ta 

nk is full or when you release 
the SPACE key - refueling wi 

11 stop.” 

715@ PRINT #15AT 1,93"Press the 

SPACE key to begin": IF INKEYS$=" 
" THEN GO TO 7158 

7169 CLS : GO TO 89g 

7508 REM X*#X¥Set up user defined 

graphics and create boat & wave 
stringsxkkk 

esdg FOR j=1 TO 18: READ a 

S018 FOR k=@ TO 7: READ b 

Sg2@ POKE USR CHRS atk,b 
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8@25 NEXT ki NEXT j 
8839 DATA 144,254, 128, 249, 152,25 
2,248, 144,254, 145,09, 128,249, 152, 
252,248, 144, 254 
8935 DATA 146,9,9,3,135,157,127, 
0,4, 147, £29, 0,35 1255 137,127 ,8,3 
SG4G DATA 148,9,9,192, 225, 198,22 
4,9,192,149, 252,8,192, 225,198, 22 
4,9,192 
8945 DATA 159,127,1,15,31,49,31, 
9,127, 151,1,1,15,31,49,31,9,127 
8846 DATA 152,1,1,1,129,127,63,3 
1,15,153,9,8,9,8,255, 254, 248, 249 
B@47 DATA 154, 96,48, 56,124, 255,2 
55,255, 255,155,4, 24, 129,111,149, 
231,255,255 
8943 DATA 156,157, 138,68,1,242,4 
, 136,145,157, 8,8, 255,139, 139,139 
,139,139,158,9,8,255,17,17,17,17 
, 17,159, 24,24, 24,69, 126,255,255, 
255 
8249 DATA 168,56,16,124, 186,145, 
168, 63,198, 161,9,98,8,129,127,63, 
31,15 
8999 DIM h¥(5,2): LET h#(1,1 TO 
Y=CHR® 146: LET h#(1,2 TO )=CHRS 
144: LET hS(2,1 TO )=CHR® 147: 
LET h#(2,2 TO )=CHRS 145 
8995 LET h#(3,1 TO )=CHR® 159: L 
ET h#(3,2 TO )=CHR® 148: LET hs 
4,1 TO )=CHR® 151: LET h#(4,2 TO 
)=CHR# 149 
S698 DIM bS(199) 
8199 FOR j=1 TO 2@: LET w=INT (( 
RND¥89) +19): LET bS(w)=CHR® 152: 
LET bS(w+1)=CHR® 153: NEXT j 
6119 DIM w#(21): FOR j=1 TO 21 §$ 
TEP 2: LET w#(j TO )=CHR® 154+CH 
R$ 155: NEXT j: LET w#(9)=CHRS 1 
54: LET w#(1@)=CHR® 155 
#115 RETURN 
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HINTS AND TIPS : 


KEEPING TRACK OF MEMORY 

It is often useful for a program to be able to tell how much 
memory is available to it an adventure game might set up more 
rooms in a 48K Spectrum than in a 16K model, or a music 
synthesiser program could find out how many notes it could 
store. 

PEEK 23733 returns 127 on a 16K Spectrum and 255 if you have 
48K. 

The number of free bytes remaining on the system is given by 
65536-USR 7962 while if you wish to know the length of your 
program you can use PRINT PEEK 23627 - PEEK 23635 +256 * 
(PEEK 23628 - PEEK 23636) 


SOME USEFUL POKES 

Here is a collection of POKEs which you may find useful. 
POKE 23561,n. This gives the time for which a key must be held 
down, in fiftieths of a second, before auto-repeat starts. Initially 
this is set to 35. 

POKE 23652, n. This is the time between repeats of a key, initially5. 
POKE 23609, n. This varies the keyboard click length. Increasing 
its value to about 20 produces a more audible beep. 

POKE 23692,255. Scroll counter. POKEing this with 255 during a 
program stops the computer asking ‘scroll?’ when the screen is full 


DISABLING BREAK/TRAPPING ERRORS 
One of the most sought-after routines for the Spectrum is a 
method of disabling the BREAK key. Even though Sinclair 
announced this could be done when the computer was launched, 
the manuals don't mention any technique. 

You can do this with POKE 23613,PEEK 23730-5 to disable 
BREAK, and POKE 23613, PEEK 23730-3 to re-enable it. If you are 
sure that RAMTOP isin its usual place, you can change the pokes 
to 82 and 84 respectively. 

The POKE works by altering the low byte of system variable 
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ERR SP, the address to which the stack is reset after an error. 
Normally this points to a routine that terminates program 
execution, but the POKE makes it point to a routine that continues 
execution. 

Using this POKE traps all errors except ‘Nonsense in Basic’. 
You can find out which error occurred with PEEK 23610. If you do 
this then clear any previous errors first with POKE 23610,255. 

There are several drawbacks to using this method so careful 
note should be taken of the following points:- 

The POKE only works 99% of the time: location 23614 should 
strictly be altered too. 

When an error occurs, any further statements on a multi 
statement line are skipped. 

Calling a subroutine will clear the error trap. 

The machine will crash if program execution ends before error 
trapping is turned off, a ‘Nonsense in Basic’ error occurs, or you 
attempt to use the POKE inside a subroutine. 


SETTING AND RESETTING CAPS LOCK 
It is sometimes useful to be able to switch the Spectrum 
keyboard's caps mode on and off, so as to control the keys which 
a program is testing for. Caps mode is controlled by the system 
variable FLAGS2 at location 23658. POKE 23658,8 sets caps 
mode, but also resets all the other flags in that register. 
There is aROM routine which can be called using RANDOMIZE 
USR 4317 but if caps mode is already set, this call will reset it. 
The solution is a short machine code routine which can be 
loaded anywhere in memory. It consists of just three instructions:- 
LD HL,23658 
SET 3,(HL) 
RET 
A suitable program to set up this routine would like like this:- 
1000 LET start= any suitable address 
1010 FOR a=start TO start+5 
1020 READ b: POKE a,b 
1030 NEXT a 
1040 DATA 33,106,92,203,222,201 
Caps mode can then be set by RANDOMIZE USR (start) 
To force the Spectrum into lower case mode change 222 to 158 in 
the data in line 1040. 
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REDIRECTING PRINTOUT 

Printing on the Spectrum is directed through a series of streams. 
These are accessed using the # symbol, so PRINT#3;"Hello” 
would print ‘Hello’ on the printer. Printout can be sent to the 
bottom two lines of the screen by using:- 

PRINT#0;"“message”; 

Try INPUT#2;"Enter a number";#0;a This will print the prompt 
in the upper part of the screen. The input stream must be set to 
#0 after printing the prompt or an error message results, 

The command OPEN# can be used to change output streams 
permanently. OPEN#2,"k’ will attempt to send all screen output 
to the keyboard (device 'k’), but this results in it appearing in the 
lower part of the screen. Care must be taken not to print more 
than twenty lines without clearing the screen or an ‘Out of screen’ 
error will result. 

To send all screen output to the printer use OPEN#2,""p" and 
to send printer output to the screen type OPEN#3,''s". 


PRODUCING FLASHY LISTINGS 

It is not widely known that Spectrum listings can incorporate 
colour commands (and indeed OVER and BRIGHT) as well as 
inverse video. This feature is probably a happy accident of the 
machine's logical structure, but it allows you to produce pretty 
listings. 

The way to obtain these effects is to go into extended mode (E 
- cursor) after the line number. You can do this on first entering 
the line, or when using EDIT. You then use the number keys, 
shifted and unshifted, to get the effects. These keys are shown on 
page 115 of the User Guide. 

This capability has several uses:- 

(i) Producing an invisible listing (even when EDIT is used) 

(i) Drawing attention to an important REM statement or a test 
line which must be deleted after debugging 

(iii) Highlighting all the lines within a FOR - NEXT loop. 

The effect of a control code is not confined to a single line, so if 
you wish to highlight a particular line, you must include two 
changes - one to produce the effect, and another to restore the 
original conditions. Each of these control codes takes up two 
bytes of memory and very strange effects can be caused by 
deleting just one of the bytes. 
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EFFECT WHEN 
UNSHIFTED 


black paper 
blue paper 

red paper 
magenta paper 
green paper 
cyan paper 
yellow paper 
white paper 


EFFECT WITH 
CAPS SHIFT 


black ink 
blue ink 

red ink 
magenta ink 
green ink 
cyan ink 
yellow ink 
white ink 


normal brightness flashing off 
high brightness flashing on 


0 
1 
2 
3 
4 
5 
6 
T 
8 
9 


USER-DEFINED GRAPHICS 
The Spectrum's BIN function is a useful aid in the creation of user- 
defined graphics. After designing your character on paper, 
using an 8 x 8 grid, all that is needed is to write a 1 wherever a 
point is required and a 0 where it is not. Thus the program to 
change the first of the Spectrum's user-defined graphics to a 
space invader might look like this:- 

10 FOR a=0 to 7 

20 READ b 

30 POKE USR “a’+a,b 

40 NEXT a 

100 DATA BIN 00011000, BIN 00111100, BIN 01011010, 
BIN 11111111, BIN 011111110, BIN 00100100, BIN 01000010, 
BIN 10000001 
However, if there are several characters to be defined in a 
program, a lot of typing is required. 

It is possible to save some time and memory by converting the 
binary numbers into decimal. First write the numbers 128,64,32, 
16,8,4,2,1 above each binary number, then find the total of all the 
headings with a1 beneath them. For example, the binary number 
10011100 would equal 128 +16 +8 +4 ie 156 base 10. After 
conversion the data statement would become:- 

100 DATA 24,60,90,255,126,36,66,129 

Alternative you could write a program which allows you to 
design characters on an enlarged grid, then prints out the values 
required for the data statement. You might like to include 
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routines to invert a character or rotate it through multiples of 
ninety degrees. 


12864 32 16 8 4 2 1 


|_| | BIN00011000 = 16+8 = 24 

|_| BIN00111100 = 32+164+8+4 = 60 

BIN 01011010 = 64+16+8+2 = 90 

BIN 11111111 = 255 

BIN 01111110 = 126 

| | fel | fy [| BIN 00100100 = 36 
BIN 01000010 = 66 

BIN 10000001 = 129. 


DOUBLE HEIGHT CHARACTERS 

Here is a program to generate double height characters. This is 
achieved by copying the usual character set into the user- 
defined graphics area, using each line of the original to define 
two lines of the larger character. Thus two successive user- 
defined characters will form the top and bottom halves of one 
double height character. 

The subroutine at line 1000 does this for the digits 0-9, then the 
rest of the program demonstrates the characters in use Obviously, 
two lines of print are needed for each character. To create 
different characters, the values for the loop in each line 1020 will 
need to be changed. The first value to use is 15360+8* CODE'"'c” 
where C is the first character to be copied. The second value is 
simply 79 larger. Unfortunately, only ten characters at a time can 
be defined using this method, because only 21 user-defined 
graphics are available. 


1@ GO SUB igs@ 
28 REM count 
38 LET x=1 
48 GO SUB 2966: PRINT "("gx5")" 
5s@ LET x=xtl 
68 INK x-INT (x/ 7)? 
78 POKE 23692,255 
88 GO TO 4¢ 
1ge@g@ REM create @-9 double height set 


igi@G LET c=USR "a" 
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1@28 FOR p=15744 TO 15823 

1939 POKE c,PEEK p: POKE ct+i,PEEK p 
1948 LET c=c+2: NEXT p 

1s5¢@ RETURN 

2988 REM print x in double height 
2819 LET a&®=STRS INT ABS x 

2829 FOR a=98 TO l 

2838 FOR p=1 TO LEN as 

2@40 LET z=CODE (ta®(p))-438 

2859 PRINT CHRS (144t+a+2¥z)i 

2848 NEXT pi PRINT 

2ere NEAT a 

28926 RETURN 


GETTING THE MOST OUT OF DRAW 

The Sinclair manual documents two features of the DRAW 
command. The first uses two parameters to draw a straight line 
relative to the current screen position. The second adds another 
parameter, an angle in radians, and draws a curve, turning 
through the given angle. 

To obtain an absolute draw (ie. drawing a line to a specified 
screen position from the current plot position) is quite simple. 
Memory locations 23677 and 23678 contain respectively the x 
and y co-ordinates of the last point plotted so the statement- 
DRAW x-PEEK 23677, y- PEEK 23678 
would draw a straight line to position xy. 

By making the third parameter in a draw statement very large, 
some strange and useful effects can be achieved. The following 
statement produces a shaded circle:- 

PLOT 127,87: DRAW 10,10,778 

Some more values to try are 555,991,8440,6974, and 1871, but you 
should be able to find many more. Try using large values with 
decimals or setting OVER 1. 


GRAPHICS FUNCTIONS FOR PASCAL 

Hisoft's Pascal IV compiler produces code which runs many 
times faster than an equivalent Basic program, but does not offer 
any graphics facilities. This program provides several graphics 
features as follows- 

CIRCLE(X,Y,R) draws a circle, centre X,Y and radius R 
DISC(X, Y,R) draws a series of circles at centre X,Y in an attempt 
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to fill a disc of radius R 
PLOT(X,Y) sets the point X,Y 
DRAWBY(X,Y) is a relative draw like the Spectrum's DRAW 


function, but no third parameter is allowed, so curves cannot be 
drawn. 


LINE(X1,Y1,X2,Y2) draws a straight line between X1,Y1 and 
X2,Y2. 
FILL(X1, Y1,X2, Y2) shades a rectangle. X1,Y1 specifies the bottom 
left hand comer and X2,Y2 is the top right corner. 
COPY is identical to the Basic COPY function. 

Most of the functions work by calling the appropriate ROM 


subroutines. Others use a function which has already been 
defined. 


AFSS 220’ BEGIN 

AFAD 23@ POKE (23681,0RDin}}; 
AFBC 2340 POKE(23728,0RDix}}; 
AFCR B58 PORE (29729, ORB (v3); 
AFDA 260 INL INE (#D9,#ES, #09 ,#aAR 
SEBO .8SC RCD Hed. EoD ESR. #82 ,285C 
HCD, HBS) HED, SAL HEL; HSCS; 

AFEC’ 27@ INLINE (8D, 82S, #2D,#C0D 
»#20 ,#23 #09, #E1,#091 ; 

AFFS 3BSe END; 


6ea2 320 VAR I: ENTEGER; 


6Beia 34a FOR I:=R BQUNTG Ii Bo 
B@3F 35@ CIRCLE(X.Y.1}; 
B@E3 360 END; 


8 
Be86E 550 PROCEDURE PLOT (A#,.5: INT 


BQ@7i 488 BEGI 

Bess 412 PORE (23726, ORD tary; 
BESS 428 POKE (23722, 0RDt(BII; 
Baa? fe” ae The Hees R4B. RB, HSC 


Baba 456 
BS5sS 466 PROCEDURE DRAMBY (x .¥:t 


E@BS a ze BEGIN 

Bas 480 IF *<«@8 THEN PORE inaese 

,;DRD CHF}; 

Bars 490 TF X+=@ THEN POKE (2226 
BRE Ctra: 

BiiB Sae IF ¥<@ THEN PORE (23297 

s>ORDIHFFI)); 

81i3e£ Sie te ¥o?=8 THEN PORE t2acs 

F, GRE; 

Bi53 52@ PORE (25725 ,0RD tABS tx} 3 


Bi7FTS SSO POKE fas72aa,CRD(HBSty}} 
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+3 ; 
Bis? S4@ INLINE (#D9,#ES.8#D9; #ED 
(845 ,.8BS, SEC, SED, 858 , #08, #565 ,#CD 
286A, #24,8D9, HEL, #09} ; 

s198 S58 ; 

Bina sé6a 

Binal s7e ae 
BiAS S66 PROCEDURE LINE (X1,Y1i.% 
2,2: INTEGER): 

Fi pa S - - 
Bipb Gee PORE (23677,0RD X23; 
BicC 61@ POKE(23673,ORD(Y2it; 
BiDB 620 DRAUBY (X2-X1,Y2-Y1}; 
B218@ 632 ENC; 


£ 


3 


B2iA G66G@ PROCEDURE FILL (Xi, Yi,x 
2,2, INK: INTEGER}; = 
B2ib GYeG VAR IT: INTEGER: 


BSib G30 BEGIN 7 
Bess 62@ WRITELN (CHR (16? ,CHREIN 
Kd; 

Bead 7Oee FOR IT:=xXi TO X2 BO 


B3e8 238 BEST ya), 
Ba7o 72 Ze +. 
6290 734 DRAVEGY t@ »¥2-VWLI; 
B26 748 ENG; 

E267 75@ END; 


B2t2 722 PROCEBURE CaorY; 


BEGIN : 
B2bob SV@ USER (#BERC! ; 
B2es3 €1@ END; 


GENERATING LOOK-UP TABLES 

Spectrum Basic includes the READ, DATA and RESTORE 
instructions, The manual only shows RESTORE followed by a line 
number, but it willin fact accept an expression. This provides the 
basis for a fast and economical look-up table facility. The 
following example illustrates the method: 


5@ REM month table look-up 
1@i DATA Fi, “January” 

1f2 DATA 25, "February" 

193 DATA F1, "March" 

i64 DATA 329, "April" 

185 OATA Zi, "May" 

igs DATA 39,"June" 

In? RATA 31, "July" 

i@s DATA 31, "August” 

16? DATA 29, "September ” 

1i@ DATA 31, "Octaber" 

til BATA 38, "November ” 

1i2 DATA 31, "December" 

g INFUT “Monta number "jmm 
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6 RESTORE mmt+ige 

@ READ dd,as 

@ PRINT "There are "“jdd35" day 
s in "jas 

496 GO Ta 288 


The line numbers of the DATA statements are arranged so thata 
simple expression can relate the required item of DATA to the 
month number. Line 300 uses this expression to set the read 
pointer so that line 400 retrieves the corresponding days in the 
month and month name. 

This technique is especially useful with tables containing 
mixed data types and variable length strings. It offers a con- 


siderable memory saving over the usual method of setting up a 
series of arrays. 


LOGICAL FUNCTIONS 

The AND, OR and NOT operators in Spectrum Basic are different 
from their equivalents in most other micros in that they do not 
operate in a bit by bit manner - a facility which would be useful in 
many applications, such as handling 1/0 ports. The routine 
shown below provides logical functions for bit handling. The 
machine code is placed into the space reserved for user-defined 
graphics ‘n' to'u’, but the routine can easily be adapted to place 
the code elsewhere. 

The ‘and, ‘or and ‘xor’ functions each require 14 bytes of code, 
while ‘not’ requires 12 bytes. The machine code accesses the 
parameters required by the functions via the address given in 
system variable DEFADD at location 23563, this being where the 
parameters of any currently executing FN are placed. 

The functions provided are as follows:- 

FN(a,b) returns a and b 
FNo(a,b) returns a or b 

FNx(a,b) returns a xor b 
FNn(a) returns not a 

The functions will only yield sensible values if the parameters 
supplied are in the range 0 - 255. 


S968 REM install logic functions 
PG1lS RESTORE 7240 
F820 REM code common to and,or and xor 
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FOR a=8 TO 14 
READ byte 
POKE USR "p"+a,byte 
POKE USE "r"ta,byte 
POKE USR "t"+ta,byte 
NEXT a 
REM poke in opcodes 
FOKE USF "p"+19,16¢0 
* POKE USR "r"4+19,176 
FOKE USK "i"4+19,168 
@ REM code for not 
= FOR a=8 TO il 
& READ byte 
8 POKE USR "n"+ta,byte 
& NEXT @ 
@ REM FN definitions 
eS DEF FN ata,b}=USR USR “p” 
a 

g 

a 

i; 

ras 


se 


“ast 


jos) 0 9 


ff 
4a 4) 


43 
TS SY LY 
 *s : 


“Q 


DEF FN o(a,b)=USR USR "Fr" 
DEF FN xia,b)=USR USR "t" 

; DEF FN n(a)=USR USE "n" 
DATA 221,47,11,92, 221,126,4 

7O@,12,8,79,6,8,201 

ATA 221,42,11,92,221,124,4 

79 ,6,08,261 

RETURN 


4) 


Db” 


ya 


n 
mv 


a 
t 


SWITCH TESTING PROGRAM 
This is a simple circuit which allows the Spectrum to detect 
whether a switch is on or off 


SWl 3-9v 47,000 pF 


To EAR socket 


{~—{_ 


B 


The wires A& B are connected to the normally closed contacts 
of the relay RLA. Closing SW1 causes the relay to switch on and 
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off rapidly, sending a series of pulses to the computer's EAR 
socket. The capacitor suppresses the relay and limits the circuit 
current. SW1 can be any normally open switch; a thermostat ora 
burglar alarm pressure mat for example. The following program 
is necessary to use the switch:- 


8 GO SUB S988: CLEAR 
& LET a=USR USR "rr" 

38 LET &=PEEK 23496 

498 IF k<3 THEN GO TO 28 
38 REM the switch is now on 
668 REM rest of program 
FOR n=USR "rr" TO USR "uu" 
@ READ a 

PORE nya& 

NEXT n 

DATA 33,56, 72,462,9,117,46,25 
?,259,254,255,49,1,52,146,247 
:8,4,9,8,8,8,9 
8 RETURN 


Coo on non 
& Q QM iy S 
= = mh MS i 


hj 
RS by ds ia poe 


a ied 
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The machine code routine occupies the memory for user 
defined graphics'r' to‘u’ but if these are needed, it can be moved 
to another address by changing line 5000. 


INDELIBLE COPYRIGHT MESSAGE 

You can create a program line which cannot be deleted or edited 
by normal methods, using a POKE statement. This is useful for 
adding. copyright messages to your programs. Type in the line 
you wish to protect as line 1 then protect it by typing:- 

POKE (PEEK 23635 + 256 * PEEK 23636) + 1,0 

This creates a line 0 which will run normally but is not otherwise 
recognised by the system. 


GENERATING ERROR MESSAGES 

One of the reasons a machine code user may want to display a 
message on the screen of the Spectrum is that an error has been 
made somewhere. In many cases, one of the Sinclair standard 
error codes could be used. For instance, in some assembler 
programs an attempt to load a single register with a number 
greater than 255 could be met by report code B - ‘Integer out of 
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range’, which can be followed by a line number and statement 
number of the programmer's choice. 

The trick is to use a ROM subroutine at08h. The machine code 
command RST 8 causes a return to Basic, generating an error 
message. The byte following the RST command should contain 
the number one less than the error code wanted, and addresses 
5C45h and5 C46h (23621/2 dec.) should contain the low and high 
bytes respectively, of the line number, Address 5C47h (23623 
dec.) contains the statement number. For example- 

LD HL,1234 al D2 04 
LD (23621),HL 22 45 5C 


LD A5 3E 05 
LD (23623),A 3247 5C 
RST 8 CF 

19 13 


The short program above will give the message ‘K Invalid 
colour 1234:5' 

If you look in the Sinclair manual, only codes 0-9 and A-R are 
listed. Other values give some interesting reports. Error T, for 
instance, is the Sinclair copyright message. Type in the following 
two line program and run it. You will get error code 1. Type 
NEXT n and press ENTER, and you will get error 2. Inthis way you 
can work through all 256 codes. 

10 FOR n=0 TO 255 
20 POKE 23610,n 


WHITE NOISE GENERATOR 
Many computers have a facility for generating white noise. This is 
useful for simulating explosions and rocket burners etc. 

The program below produces white noise by means of a 
machine code routine. The duration of the sound can be set with 
POKE 32583,n and the pitch can be changed by POKEing 32589. 
The routine can be called with RANDOMIZE USR 32581. 

48 K users can load the code higher up in memory without 
making any changes to it, but the POKE addresses for duration 
and pitch will of course change accordingly. 

10 CLEAR 32580 

20 FOR p=32581 TO 32597 
30 READ a: POKE p,a 

40 NEXT p 
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50 DATA 33,0,10,43,126,211,254,6,7,5,32,-3,175,132,200,24,-14 
100 REM Demonstration 

110 BEEP .007,19: PAUSE 10: BEEP .007,31: PAUSE 10: 
RANDOMIZE USR 32581: PAUSE 5: RANDOMIZE USR 32581: 
PAUSE 5: BEEP .007,19: PAUSE 10: BEEP .007,31: PAUSE 10: 
RANDOMIZE USR 32581: PAUSE 5: BEEP .007,31: PAUSE 10 
120 GOTO 110 


ADDING NOISE TO PROGRAMS 

The Spectrum's BEEP command is controlled by the machine's 

CPU (central processing unit), so giving out continuous white 

noise while other things are happening on the screen is difficult. 
However, it may be useful to know that you can produce a 

series of short clicks by accessing the output port which controls 

border colour and the computer's speaker. Try this program:- 

10 LET bd=PEEK 23624/8: REM 23624 holds current border col. 

20 OUT 254, bd+16: OUT 254,bd 

30 REM action routine 

40 DRAW INK RND*8;RND*255-PEEK 23677,RND*175-PEEK 

23678 

50 GOTO 20 
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